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ZA MIESIĄC 

W PODWÓJNYM WAKACYJNYM 
NUMERZE: 


mmmmm 

S litUSŚSJ 

Q2SB3i3i3E0 


Czafo&tfeu/ 


Następny numer Tajemnic (o numeracji 6-7) z okazji wa¬ 
kacji ukaże się w zwiększonej objętości Przygotowaliśmy 
dla Was wiele atrakcji Nie przegapcie go w kiosku! 

W poprzednim numerze określiłem zgrubnie nasze pra¬ 
gnienia dotyczące materiałów nadsyłanych do publikacji 
Dziś garść bardziej szczegółowych wskazówek dla autorów 
przysyłających dyskietki tub kasety. 

Programy winny być zawsze oddzielone od tekstu i zapi¬ 
sane w Jormie umożliwiającej ich wykonanie W przypadku 
rzadziej używanych Języków programowania wskazane 
Jest dołączenie kompilatora czy interpretera danego języka 

Nadsyłane teksty i programy są przenoszone na komputer 
IBM PC i na nim dopiero powstaje ostateczny kształt gazety 
Untkajcte znaków semlgrąflcznych oraz znaków w negaty¬ 
wie! Program, który Je zawiera, wymaga znacznie więcej za¬ 
chodu w procesie przygotowania do druku i Jest mniej 
czytelny, ponieważ musi być przedstawiony w trybie graficz¬ 
nym. Oczywiście nie zależy to od liczby takich znaków Są, 
rzecz Jasna, programy, w których nie sposób się obejść bez 
tych " robaczków ", lecz ozdobne ramki doprawdy nie zawsze 
sq konieczne. Także znak czyszczenia ekranu da się zapisać 
"po ludzku". Jest to ogólna zasada dotycząca przenoszenia 
tekstów pomiędzy różnymi systemami: nie stosować znaków 
specyficznych dla danego komputera. Bezpieczny zakres sta¬ 
nowią znaki o kodach 32-122, które wyglądają jednakowo 
praktycznie na wszystkich maszynach 

Nie róbcie "wcięć" dla wyróżnienia akapitu! Program do¬ 
konujący składu sam to robi. Wprowadzone przez Was do¬ 
datkowe spacje musimy ręcznie usuwać Nie przenoście 
wyrazów! Tekst jest automatycznie rozmieszczany 
w szpaltach l Wasze przeniesienie może wypaść w połowie 
linijki. Znaki przestankowe, takie Jak kropka, przecinek, py¬ 
tajnik, itd. należy " przyczepiać " do poprzedzającego Je wy¬ 
razu, oddzielać natomiast spacją od następnego słowa 

Akapit, czyli logicznie wyodrębniony fragment tekstu 
oddziela się od sąsiadujących ustępów Jednym pustym 
wierszem (nie zawierającym tekstu) Długości wterszy nie 
odgrywają żadnej roli, gdyż tekst "wlewa" się w kolumny, 
przy czym końce wierszy traktowane są jak spacje Frag¬ 
ment zapisany w jednym dłuuugim wierszu zostanie wy¬ 
drukowany Jak takt sam tekst poszatkowany (choćby 
w każdej linijce jedno słowo). Takim akapitem jest na 
przykład terifragment, od pterwszego słowa Akapit do sło¬ 
wa koniec. 
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TA Copy 

Dziś kolejny przykład programu 
z klocków, uniwersalny duplikator 
plików. Znaczna Jego część pocho¬ 
dzi z programu TA Poker, którym 
zajmowaliśmy się w numerze 3/92. 
Te fragmenty, które wówczas wpi¬ 
saliście, oznaczone są szarą mgieł¬ 
ką". 

* TA COPY autor: JBW 

» fc) 1 -z Tajemnic* ATARI 



opt 

*100101 

*-procedury w ROM 

afp 

equ 

$0800 

fpi 

equ 

$D9D2 

eiov 

equ 

$£45$ 

*- rejestry pakietu FP 

fr© 

egu 

$d4 

cix 

egu 

$« 

lnbuff 

egu 

$f3 

*- syata* 


runad 

cqu 

$2E0 

initad 

egu 

$2E2 

doarun 

equ 

$A 

doelni 

equ 

$c 

iocb 

egu 

$340 

io_com 

egu 

iorb+2 

io~sta 

equ 

itX'b+3 

io~adr 

equ 

aocb+4 (2) 

io~len 

«qu 

iocb+8 (2) 

iojnod 

equ 

locb+10 

io~aux 

«qu 

iocb+I1 


Widziałem w życiu dużo kopie- 
rów, lecz niewiele z nich można na¬ 
zwać przyjaznymi. Często dla osiąg¬ 
nięcia jak największej pojemności 
bufora programy te niszczą wszy¬ 
stko, co oprócz nich "żyło” w kom¬ 
puterze 

Nasz program będzie krótkim, 
podręcznym kopierem, wykorzystu¬ 
jącym pamięć pomiędzy MEMLO 
1 MEMHI, nie kolidującym więc 
z Innymi programami (systemem 
operacyjnym, nakładkami, itd.). 


memhi 

equ 

$2E5 

memlo 

equ 

$2E7 

driv 

equ 

$301 

skctl 

equ 

$D20F 

*-stale 


chn0 

egu 

$00 

chnl 

equ 

$10 

;ctt 

egu 

5 

putt 

egu 

9 

getb 

egu 

7 

putb 

egu 

U 

eoł 

egu 

155 

eof 

equ 

136 

shift 

egu 

%00001000 


Zestaw przydatnych definicji po¬ 
szerzył się o kilka nowych. Na stro¬ 
nie zerowej obok roboczych komó¬ 
rek BYTE, ADDR, WORD wyrosły 
nowe, ważne dla koplera zmienne 
globalne. 


*— strona zerowa 


byte 

0qv 

$cb 

addr 

oqu 

>cc 

d 

aqu 

$ra 

used 

equ 

$d0 

size 

equ 

$d2 


Opisują one aktualny stan kopie- 
ra, powinny być wyraźnie wyodrę 
bnione i sugestywnie nazwane, by 
nie przyszła nam ochota użyć ich 
do jakichś innych celów. USED bę¬ 
dzie zawierać rozmiar aktualnie 
wczytanego pliku, zaś SIZE - wiel¬ 
kość dostępnej pamięci 

*-- masery 1 komunikatów 

pul je equ 0 

titja equ 1 

getjn equ 2 

put m equ 3 

eri m equ 4 

men, m equ 5 

staju equ 6 

Dużym zmianom ulegną komun! 
kały (kopier jest bardziej rozmowny 
od Poker-a). Oprócz nagłówka 1 od¬ 
stępu potrzebne są. wyświetlenie sta¬ 
nu, zachęta do wczytania pliku, za¬ 
chęta do zapisania, komunikat o błę¬ 
dzie we/wy i o przepełnieniu pamięci. 


Plan 

Planowanie zasad działania pro¬ 
gramu można utożsamić ze stwo¬ 
rzeniem Jego głównej pętli która 
rozdziela zadania pomiędzy po¬ 
szczególne procedury. 

org $8000 

main jsr init 

* główna pętla 

loop jsr close 

* wypisz status 

jsr dsp stat 

* pobierz nazwę pliku 

ldx #get_m odczyt 
Ida used 
ora used+1 
beq *+3 

inx zapis 

jsr get__text 
bmi loop 

* nazwa pusta? 

dec io__len,x 
bne io 

* zmiana trybu lub koniec 

Ida used 

ora used+1 

beq quit 

Ida #0 

sta used 

sta used+1 

beq loop (jmp) 

* zapis czy odczyt? 

io Ida used 

ora used+1 
beq rd 

* zapis 

jsr write 
jmp loop 

* odczyt 

rd jsr read 

jmp loop 

* powrot do Dos-u 

quit jmp (dosrun) 


Pętla zaczyna się od wywołania 
procedury CLOSE, zamykającej ka¬ 
nał nr 1. Jest to wygodny sposób 
zabezpieczenia się przed poprze¬ 
dnim, roztargnionym użytkowni¬ 
kiem tego kanału. 

DSP STAT informuje klienta 
o aktualnym stanie koplera Tuz za 
nim następuje pytanie o nazwę pli¬ 
ku. Tekst pytania zależy od warto¬ 
ści słowa USED. Zero oznacza pu¬ 
sty bufor - zatem prosimy o plik do 
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taj, 


odczytu. Jeżeli natomiast ORA da 
nlezerowy wynik, to znaczy, ze bu¬ 
for coś zawiera, pytamy więc o plik 
do zapisu. 

Aby uprościć maksymalnie spo¬ 
sób obsługi koplera, przyjąłem 
wprowadzenie pustego wiersza Ja¬ 
ko jedyny rozkaz sterujący. W try¬ 
bie zapisu oznacza on polecenie 
przejścia do trybu odczytu (1 zara¬ 
zem wyczyszczenie bufora), nato¬ 
miast w trybie odczytu powoduje 
zakończenie pracy i przejście do 
programu nadrzędnego (DOS-u, 
COS-u. .). Przełączenie z trybu od 
czytu na zapis odbywa się samo¬ 
czynnie, po poprawnym odczytaniu 
pliku. 

Ten pomysł" został wymuszony 
przez specyfikę standardowego we¬ 
jścia ATARI (urządzenie "E:"), do¬ 
stępnego przez kanał O. Oddaje 
ono wprowadzony tekst dopiero po 
zatwierdzeniu go klawiszem 
RETURN. Najkrótszy zatem tekst - 
to właśnie sam RETURN! Wiele ko- 
plerów stosuje tu rozkazy literowe 
np. Q. Wtedy oczywiście trudno jest 
wczytać i zapisać plik o nazwie Q. 

Procedury RE AD i WRITE odpo¬ 
wiadają za odczyt 1 zapis pliku. 
Główna pętla wywoła Jedną z nich 
w zależności od stanu słowa USED. 

Klocki wyświetlania i wprowa¬ 
dzania tekstów nie ulegają żadnym 
zmianom: 


m 


wypis* 




km 

Ida 

.ay 

canp 

b< r 

b*Nj 


ł» 

ttOUt 
data.v 

#*L. 

bat 

(w t 


W? i 


tx* 
id* 
s* a 

-1 c 

ty* 

sta 

Ida 

sta 

*dc 

sta 

Ida 

sta 


♦ch.uń 
le* ,x 


desa 
io «dr,x 

*«r 

i.o^len+1 ,x 
d' aa+1 
io_*dr+l,x 
#pott 
io_com, x 
ciov 


* - pobierz tekst 

get_text ]ar dapjnsg 
ldx łchn0 
ld« łgtt 
sta iojcon,x 
Ida txta 
sta io_adr f x 
Ida txta+ł 
sta io_adr+ł,x 
sta io^łen+lł* 
jatę clov 

Przybędzie natomiast procedura 
do wypisywania liczb w formacie 
szesnastkowym Jej ważną cechą 
Jest bardzo duża szybkość działa 
nla. Oczywiście w tym zastosowa¬ 
niu prędkość nie gra większej roli, 
więc kto woli, ten może użyć proce¬ 
dur z ROM-u 1 wyświetlać liczby 
dziesiętnie. 

* - wypisywanie liczb 


pwor 

jsr 

txa 

phex 

phex 

pha 



jsr 

pla 

pxdig 


Isr 

e 


lsr 

e 


Isr 

e 


lsr 

§ 

pxdig 

and 

#%0000im 


ora 

#•0' 


cmp 

#'9'+1 


bcc 

*+4 


adc 

#6 


sta 

dey 

rts 

stat,y 


Jest to w zasadzie zespół trzech 
procedur: PXDiG wyświetla poje¬ 
dynczą cyfrę szesnastkową, PHEX 
wyświetla bajt (dwie cyfry), a PWOR 
- słowo (cztery cyfry). Zastosowana 
tu została prosta "sztuczka". PHEX 
wywołuje dwukrotnie procedurę 
PXDIG. Po pierwszym wywołaniu 
przez JSR następuje przesunięcie 
zawartości baj tu o cztery bity, by 
starsza połówka znalazła się na 
miejscu młodszej. Tu powinna na¬ 
stąpić sekwencja JSR PXDIG, 
RTS. lecz taki sam skutek da prze¬ 
cież prostsze JMP PXDIG (RTS 
w PXDIG znajdzie na stosie adres 
powrotu w miejsce wywołania 
PHEX). Z kolei jednak rozkaz JMP 
do następnej instrukcji można t>ez 
szkody pominąć. W ten sam sposób 
procedura PWOR dwa kroć wywołu¬ 
je procedurę PHEX Liczby nie są 
wyświetlane na ekranie, lecz przy¬ 


gotowywane w obszarze komunika¬ 
tów. Wyświetla je następny klocek: 

* - wypisz status 

dsp_stat equ * 

* wykorzystywane 

Ida used 
ldx used+1 
Idy <use_+3 
jsr pwor 

* rozmiar bufora 

sec 

Ida memhi 
sbc bufa 
sta size 
Ida memhi+1 
sbc bufa+1 
sta size+1 
tax 

Ida size 
Idy <siz +3 
jsr pwor 

* wypisz 

ldx #nul_m pusty 
jsr dsp_msg 
ldx #sta_m status 
jmp dsp_msg 

Wykorzystanie procedury PWOR 
polega na ustawieniu rejestru inde¬ 
ksowego Y na pozycję ostatniej 
cyfry, w rejestrach A 1 X przekazuje 
się słowo do wypisania 

W licznych programach, zwykle 
bardziej skomplikowanych od na¬ 
szego koplera, operacje wejścia/wy¬ 
jścia wywoływane są z wielu pod¬ 
programów. Ponieważ po każdym 
takim wywołaniu trzeba zbadać 
kod zakończenia operacji (rejestr 
Y), wygodnie Jest stworzyć proce¬ 
durę inicjującą operację -we/wy po¬ 
łączoną z reakcją na błąd. 

* - CIO z ew. komunikatem 


mcio 

jsr 

ciov 


bpi 

ciok 


cpy 

#136 


beq 

iook 

error 

ldx 

#err_m 

derr 

jsr 

dsp msg 


Idy 

rts 

#255 

ciok 

ldx 

#mem m 


Ida 

used 


ora 

used+1 


beq 

derr 

iook 

Idy 

rts 

#1 


Nie jest to całkiem trywialne, po¬ 
nieważ tylko w przypadku zapisy¬ 
wania pliku pożądane Jest pozy¬ 
tywne zakończenie operacji! 
W przypadku odczytu bowiem ko- 
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pier, nie znając z góry wielkości pli¬ 
ku. żąda wypełnienia CAŁEGO bu- 
fora. Jeżeli więc- ta operacja się po¬ 
wiedzie, można z dużym prawdopo¬ 
dobieństwem przyjąć, ze plik jest 
większy. Dlatego procedura MCIO 
melduje w takim przypadku niedo¬ 
bór pamięci. Poprawne zakończe¬ 
nie odczytu - to błąd nr 136 (napo¬ 
tkany koniec pliku). Świadczy on 
o tym, że wszystko zostało przeczy¬ 
tane. Dla uproszczenia kontroli po 
prawności w procedurach, które 
wywołują MCIO, modyfikowany jest 
kod w rejestrze Y: teraz juz napra 
wdę ujemna wartość oznacza nie¬ 
powodzenie operacji. 

* - zamknij kanał 

close ldx #chnl 
Ida #12 
sta io_com,X 
jsr ciov 
Ida #3 

sta skctl cicho! 

tya 

bmi error 
rts 

Procedura zamykająca kanał wyci 
sza przy okazji niemiły pisk słyszał 
n wskutek błędu w systemie ATARI 

* - otworz kanał 

open ldx #chnl 

sta io_mod,x 
Ida #3 

sta io_com,x 

* szukaj dwukropka 


Idy 


cpy 

text+l 

beq 

seti 

cpy 

text+2 

beq 

seti 

Ida 

#0 

* ustaw iocb 


seti clc 


adc 

dnma 

sta 

io adr,x 

Ida 

#0 

adc 

dnma+1 

sta 

io adr+l,x 

Ida 

skctl 

and 

#shift 

asl 

@ 

asl 

§ 

asl 

§ 

asl 

@ 

sta 

io aux,x 

jsr 

ciov 

bmi 

error 

* przygotuj na potem... 

Ida 

io mod,x 

ora 

#3 

sta 

io com,x 

Ida 

bufa 

sta 

iq_adr,x 


Ida bufa+1 
sta io__adr+l,x 
tya 
rts 


Otwarcie kanału to bodaj najbar 
dziej skomplikowany klocek Ponie¬ 
waż procedura jest ta sama dla zapl 
su i odczytu w akumulatorze przeka 
żuje się żądany tryb pracy kanału 
4 lub 8 Procedura sprawdza obe¬ 
cność maku w nazwie pliku, jeżeli 
go brak, to dołączana jest z przodu 
domyślna nazwa urządzenia. Jeżeli 
użytkownik trzyma wciśnięty klawisz 
SHIFT to w IO AUX umieszczane 
jest 0 (oznacza to długie przerwy dla 
urządzenia C:"), w przeciwnym razie 
- 128 Jeżeli otwarcie powiedzie się, 
to można przygotować jeszcze kod 
rozkazu dla przyszłych odczytów lub 
zapisów (7 lub 11) oraz adres bufora. 


Uwaga: ponieważ OPEN i CLOSE 
korzystają z części ERROR proce 
dury MCIO należy te klocki trakto¬ 
wać jako niepodzielną grupę 
Z uwagi na skoki względne pożąda 
ne jest bliskie ich sąsiedztwo 


*- wczytaj plik 


read 


rret 


Ida #4 

jsr open 
bmi rret 
Ida size 
sta ic> len,x 
Ida size+1 
sta io_len+l,x 
jsr mcio 
bmi rret 
Ida io_len,x 
sta used 
Ida io len+l,x 
sta used+1 
rts 


Wczytanie pliku rozpoczyna się 
ustawieniem żądanego rozmiaru 
danych (SIZE - cały bufor), a koń 
czy się zarejestrowaniem faktyczne ) 
długości pliku zwracanej przez sy 
stem w IO LEN Zapis to już czcza 
formalność - nie wymaga chyba ko¬ 
mentarza 

*- zapisz plik 

write Ida #8 

jsr open 
bmi wret 
Ida used 
sta io_len f x 
Ida used+1 
sta io_len+l,x 
jsr mcio 
wret rts 


Pozostaje Jeszcze tylko do napi¬ 
sania procedura INIT, która 
w sprytny sposób wydedukuje nu¬ 
mer stacji dysków, z której wczytu¬ 
jemy nasz kopier (jeśli to nie sta¬ 
cja, nic nie szkodzi), wyzeruje sło¬ 
wo USED i wyświetli nagłówek pro¬ 
gramu. 

* - ustawienie początkowe 

init Ida #'0' 
ora driv 
sta dnam+1 
Ida #0 
sta used 
sta used+1 
ldx #tit_m tytuł 
jmp dsp_msg 

* -koniec programu 

brk 


Niezbędne dane: 

*- dane adresowe 


txta 

dta 

a(text) 

dtaa 

dta 

a(data) 

bufa 

dta 

a(buff) 

dnma 

dta 

a(dnam) 


dta 

a(0) 

* _ 

dane 


data 

dta 

b(eol) 


dta 

c' TA COPY 1.0 '* 


dta 

b(eol) 


dta 

c'Source:' , b(eol) 


dta 

c'Target:',b(eol) 


dta 

c'1/O error!' 


dta 

b(eol) 


dta 

c'Out of memory!' 


dta 

b(eol) 

stat 

dta 

c'Used $' 

use 

equ 

*-stat 


dta 

c'.... by tes of $' 

siz 

equ 

*-stat 


dta 

c'_' ,b(eol) 

dnam 

dta C'D0: ' 

text 

org *+120 

buf f 

egu * 


Leniwi mogą tu zakończyć pracę 

org runad 
dta a(main) 
end 

Warto tylko zmienić adres w roz¬ 
kazie ORG, by poszerzyć bufor. Am¬ 
bitnym proponuję połączyć kopier 
z RELOCATOR-em z TA 8/91 Trze¬ 
ba w nim zadeklarować STAR ja 
ko main, zaś USER jako rret. 

Janusz B, Wiśniewski 
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1 DRAWTO, Trzeba Je dodatkowo przeliczać (różnie dla róż¬ 
nych trybów), Najlepiej wypraktykować to samemu 


Po każdym wykonaniu GRAPHICS strzałka wymaga ponow¬ 
nego uaktywnienia przez POKE 559 58 Po naciśnięciu RE- 
SET trzeba od nowa wykonać USR 



Leszek Taratuta nadesłał program szczególnie przydatny 
dla tych których ciekawi zawartość pamięci naszego kompu¬ 
tera Dużą atrakcję stanowi fakt, że wywołanie monitora nie 



Strzałka Igora Kruka to kolejny przykład programu, który 
NIE powinien znajdować się na szóstej stronie pamięci Jest to 
uniwersalny sterownik strzałkl-wskaźnika, może więc tyć 
wykorzystywany przez wiele programów podczas gdy szósta 
strona powinna być wolna dla lokalnego spożytkowania w kon¬ 
kretnym programie Rozumiem motywy, które kierują autorami, 
wszak istnieje ten konkurs . Jednak dla 'szarych" użytkowni¬ 
ków znacznie wygodniejszy tyłby program rezydentny (mógfby 
się mieścić np powyżej RAMTOP, obok obszaru PM) 

MX 10 DIM A$ ( 26):A=1536 
TO 20 TRAP 60:READ A$:1=1:H=0:TRAP 20 
01 30 N=ASC (A$(I))-48:N=N-39*(N>9):1=1+1 

XB 40 X=16*X+N:H=1-H:IF H=1 THEN 30 
PM 50 POKE A,X:X=0:A=A+1:GOTO 30 
PA 60 POKE 106,PEEK(106)-16:GRAPHICS 0 
AL 70 ? "GOTOWE.":A=USR(1536,1,0,3):NEW 
OS 1010 DATA 6868688ded06686829018def06 
ZD 1020 DATA 686829078dee06a9788deb068d 
TG 1030 DATA ec06a56a8d07d41869048d3b06 
UR 1040 DATA 8d73068dd306a0008c3a068c72 
HZ 1050 DATA 068cd2069899f fffc8d0faa93a 
HD 1060 DATA 8d2f02a9008d6f028d08d0a90a 
FI 1070 DATA 8dc002a9028dldd0a060a206a9 
OB 1080 DATA 07205ce460aded06d005adea06 
30 1090 DATA £07dacec06a210a90099ffffc8 

01 1100 DATA cad0f98dea06aded06f0678dea 

KO 1110 DATA 06aeef06bd7802490£290£aa29 
TB 1120 DATA 01f00a38adec06edee068dec06 
AC 1130 DATA 8a2902f00al8adec066dee068d 
CL 1140 DATA ec068a2904f00a38adeb06edee 
3A 1150 DATA 068deb068a2908f00al8adeb06 
SA 1160 DATA 6dee068deb06acec06a200bdf0 
"WS 1170 DATA 0699ffffc8e8e00fd0f4adeb06 
KI 1180 DATA 8d00d085cbadec0685cc4c62e4 
HF 1190 DATA 003232010100f8f0f0f0980c06 
MR 1200 DATA 000000000000000000 

W wywołaniu procedury Inicjującej 

x=usr( 1536, actjoy ,spd) 

act steruje obecnością strzałki na ekranie (0 - nie ma) 
joy wybiera port Joysticka który steruje ruchem strzałki 
spd ustala prędkość strzałki (w zakresie od 1 do 7) 

Podane parametry można też zmieniać POKE-aml (kolejno: 
1773, 1774, 1775) 

W komórkach 203, 204 znajduje się aktualna pozjnja 
strzałki (X, Y), lecz odczytane wartości nie są tożsame z para¬ 
metrami stosowanymi w rozkazach POS1TION PLOT 


przerywa działania programu aktualnie wykonywanego, moż¬ 
na więc obserwować "żywy" program w akcji 

MK 10 DIM A$ (26): A= 1536 
TQ 20 TRAP 60:READ A$ : 1=1:H=0:TRAP 20 
lii i 30 N=ASC (A$ (I) ) —48 :N=H-39* (N>9 ) : 1=1+1 
XB 40 X=16*X+N:H=l-H:IF H=1 THEN 30 
DM 50 POKE A,X:X=0:A=A+1:GOTO 30 
SD 60 A=USR(1536) 

UP 1010 DATA 68a9018df806a9078dfC06ad24 
ŻQ 1020 DATA 028dfe06ad25028df£06a020a2 
QT 1030 DATA 06a9074c72c2addc02c91108ae 
LB 1040 DATA f806caf003caf02c28d0278edc 
NQ 1050 DATA 02ee£806ad2f028df906ad3002 
YC 1060 DATA 8dfa06ad31028dfb06a9218d2f 
VZ f 1070 DATA 02a9bd8d3002a9068d3102d05f 
0Q 1080 DATA 28d01a8edc02adf9068d2f02ad 
(W* 1090 DATA fa068d3002adfb068d3102cef8 
RJ 1100 DATA 06d042cefc06d03daelfd08a29 
PK 1110 DATA 01d003eec6068a2902d003cec6 
LI 1120 DATA 06adc6068dfd06a000a200ad£d 
CJ 1130 DATA 0638f9f50690068dfd06e8d0f4 
SB 1140 DATA 8al8691099e906c8c003d0e3a9 
BB 1150 DATA 078dfc066cfe06707070707070 
Cl 1160 DATA 70420000020202020202021042 
ZE 1170 DATA d5064lbd060000000000000000 
OZ 1180 DATA 7374726f6e61006e72001a0010 
OG 1190 DATA 1010000000000000000000640a 
NO 1200 DATA 010000000000000000 

Po uruchomieniu powyższego programu monitor zagnlezdza 
się na 6 stronie Odtąd HELP powoduje pokazanie pojedynczej 
strony pamięci. Klawiszami START 1 SELECT można dokonać 
wyboru strony Ponowne naciśnięcie HELP spowoduje uśpienie 
monitora. 
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Zasady gry są proste, lecz emocji wiele. Należy wy¬ 
łapywać spadające z góry kulki, nie dopuszczając, 
by lądowały na podłodze. Samodzielny program 
działający z DOS-em lub COS-em uzyskuje się przy 
pomocy Zgrywusa+ z TA 1/92. 



IJ 

1000 

IE 

1002 

VB 

1004 

Y¥ 

1006 

JP 

1008 

AH 

1010 

TV 

1020 

IP 

1030 

DK 

1040 

KA 

1050 

xc 

1060 

wc 

1070 

ZA 

1080 

ES 

1090 

VY 

1100 

ES 

1110 

HX 

1120 

PU 

1130 

SJ 

1140 

KI 

1150 

RD 

1160 

BU 

1170 

RE... 

1180 

Q« 

1190 

JV 

1200 

BF 

1210 

AK 

1220 

RL 

1230 

Ul 

1240 

WK 

1250 

EG 

1260 

(JA 

1270 

HO 

1280 

YQ 

1290 

SP 

1300 

PU 

1310 

IK 

1320 

IM 

1330 

PA 

1340 

XL 

1350 

GP 

1360 

GR 

1370 

AT 

1380 

VY 

1390 

XY 

1400 

LA 

1410 

SO 

1420 

PZ 

1430 

UA 

1440 

DE 

1450 

m 

1460 

DL 

1470 

DJ 

1480 

GX 

1490 

FK 

1500 


REM *-* 

REM : KULKI : 
REM : autor: Dariusz Zolna : 
REM : (c) 1992 Tajemnice ATARI : 
REM *-* 


DATA ffff0088208e20468b20fb89a9 
DATA 0ea20620S58ba95485b2a98d85 
DATA b3a20ca00cblb291b08810f9a9 
DATA 28a000209e8ba90da002209e8b 
DATA cal0e620068ba9008db38b8db4 
DATA 8ba9078db68ba9048db78b20la 
DATA 8aa906 8db2 8ba902 8db88ba514 
DATA c514f0fca9ff8dfc02adbl8b30 
DATA 090a09e08d01d2cebl8ba51429 
DATA 0ld0034cf688a90da21620858b 
DATA a00ea90091b088l0fbaef202ac 
DATA f102ad7802c90ff00fc907d003 
DATA aaa00lc90bd004a206a0018ef2 
DATA 028cf102adf102f035adf202c9 
DATA Icd0034c9589c936d0034c6b8a 
DATA C906d00aceb28bl005a9008db2 
DATA 8badf202c907d00feeb28badb2 
DATA 8bc90d9005a90c8db28badb28b 
DATA 18690da21620858ba002b9b98b 
DATA 91b08810f8ceb58b30034c8d89 
DATA adb68b8db58ba90020eb8aeeaf 
DATA 8badaf8bl86904aaadae8bl869 
DATA 0d20858ba000blb0c93ed01da9 
DATA 058dbl8ba9148d00d2eeae8bad 
DATA 0ad22901f006ceae8bceae8b4c 
DATA 8d89c9d2d00eceaf8ba90020eb 
DATA 8a20068b4ca889c9809036ceaf 
DATA 8ba90020eb8aceb88bl021a902 
DATA 8db88bceb68badb68bc902b0l2 
DATA a9078db68badb78bc,904b006ee 
DATA b78b201a8a20068ba90120bl8a 
DATA a95420eb8a4c5388a9ff8dfc02 
DATA a9008d00d28d01d2201a8b6c0a 
DATA 00adb28bl8690da21620858ba0 
DATA 02b9b98b91b08810f8a9648d00 
DATA d2a0329829010a0a0a09e08d0l 
DATA d2a2468d0ad4cad0fa88l0eaa9 
DATA 008d00d28d01d2a9068db28bce 
DATA b78b201a8aadb78bl0034c378a 
DATA 20fb894c5388adf102f00cadf2 
DATA 02c91cd00568684c9589ad0fd2 
DATA 29084a4a4a2d8402d0e260a916 
DATA a20l20858ba004a98091b08810 
DATA fbacb78b30bea9d491b08810fb 
DATA 60a90fa20c20858ba9fd85b2a9 
DATA 8d85b3a202a00bblb291b08810 
DATA f9a928a000209e8ba90ca00220 
DATA 9e8bcal0e6a5141869c8c514d0 
DATA fca9008d00d28d0ld2a90da206 
DATA 20858ba92385b2a98c85b3a20c 


QF 

1510 

DATA 

SP 

1520 

DATA 

LC 

1530 

DATA 

LD 

1540 

DATA 

DF 

1550 

DATA 

BY 

1560 

DATA 

BH 

1570 

DATA 

3BL 

1580 

DATA 

FD 

1590 

DATA 

RS 

1600 

DATA 

WS 

1610 

DATA 

XM 

1620 

DATA 

PA 

1630 

DATA 

: AA 

1640 

DATA 

BU 

1650 

DATA 

:®U 

1660 

DATA 

PO 

1670 

DATA 

KL 

1680 

DATA 

XF 

1690 

DATA 

JE 

1700 

DATA 

AL 

1710 

DATA 

CK 

1720 

DATA 

EC 

1730 

DATA 

VC 

1740 

DATA 

CD 

1750 

DATA 

LB 

1760 

DATA 

SR 

1770 

DATA 

OJ 

1780 

DATA 

SC 

1790 

DATA 

RB 

1800 

DATA 

DC 

1810 

DATA 

B0 

1820 

DATA 

CB 

1830 

DATA 

KH 

1840 

DATA 

EU 

1850 

DATA 

CP 

1860 

DATA 

FX 

1870 

DATA 

XN 

1880 

DATA 

MO 

1890 

DATA 

MN 

1900 

DATA 

: m i- 

1910 

DATA 

LU 

1920 

DATA 

ZK 

1930 

DATA 

ŚM 

1940 

DATA 

IR 

1950 

DATA 

PE 

1960 

DATA 

TU 

1970 

DATA 

JJ 

1980 

DATA 

CA 

1990 

DATA 

YO 

2000 

DATA 

EJ 

2010 

DATA 

LK 

2020 

DATA 

SL 

2030 

DATA 

ZA 

2040 

DATA 

j. WY : 

2050 

DATA 

GF 

2060 

DATA 

yk : 

2070 

DATA 

XM 

2080 

DATA 

QH 

2090 

DATA 

FK 

2100 

DATA 

XU 

2110 

DATA 

m 

2120 

DATA 

PR 

2130 

DATA 

FW 

2140 

DATA 

YG 

2150 

DATA 

XI 

2160 

DATA 

QD 

2170 

DATA 

GI 

2180 

DATA 

GU 

2190 

DATA 

OS 

2200 

DATA 

TU 

2210 

DATA 

<3X 

2220 

DATA 


a00eblb291b088I0f9a928a000 
209e8ba911a002209e8bcal0e6 
a90da21620858ba00ea90091b0 
88l0fb4c0388f8186db48b8db4 
8ba9006db3 8b8db3 8bd8a90fa2 
0120858ba000adb38b290f0990 
91b0c8adb48b4a4a4a4a099091 
b0c8adb48b290£099091b0608d 
b08bada£ 8b18 6 904aaadae 8bl8 
690d20858badb08ba00091b060 
ad0ad229071869046dae8ba900 
8daf8b8db58b60a90ca2002085 
8ba92185b2a98e85b3a217a010 
blb291b08810£9a928a000209e 
8ba911a002209e8bcal0e660a9 
0ca20020858ba9bc85b2a98b85 
b3a92185b4a98e85b5a217a010 
blb091b4blb291b08810f5a928 
a000209e8ba91Ia002209e8ba9 
Ila004209e8bcal0db60186558 
85b0a900655985blcal00160a9 
28a000209e8b4c908bl879b000 
99b000a90079bl0099bl006000 
0000000 000000000000cacdc 8 
dld2d2d2d2d2d2d2d7d2d2d2d2 
d2d2d2c5fc80809090908080fc 
80d4d4d4d4d480fccld7d7d7d7 
d7d7d7d3d7d7d7d7d7d7d7c4cl 
d8d8d8d8d8d8d8d8d8d8d8d8d8 
d8d8c4c1000000000000000000 
000000000000C4c10000000000 
00000000000000000000C 4 c100 
80d95980d95980000080d959d5 
00c4cl0080800080d959800000 
8080008000c4cl0080d959cf80 
4c80805980d9598000c4cl000d 
0d0d0d0d0d0d0d0d0d0d0d0d00 
C 4 c10000000000000000000000 
00000000c4c100000000217574 
6 f 7 21a0®00000000c4c1002 461 
726975737a003a6f6c6e6100c4 
Cl004d4d4d4d4d4d4d4d4d4d4d 
4 d 4 d00c 4 c10000000000000000 
00000000000000C4c1002 3 6f 70 
797269676874000S630900c4cl 
00000034212a252d2e29232500 
0000C 4 c1000021342132290000 
111919120000C4c10000000000 
0' .00000000000000000C4 c100 
0 000000000000000000000 
00c 4c100000003000000000000 
0000000000c4c.000000000000 
8>00000000000000000c4c10000 
00000000000000000000000000 
C4dad2d2d2d2d2d2d2d2d2d2d2 
d2d2d2d2c33e003e003e003e00 
3 e003e00360000000000000000 
0000000000003e003e003e003e 
003e003 000000000000000000 
00000000003e003e003e003e00 
3e003e003e0000000000000000 
0000000000003e003e003e003e 
003e003e000000000000000000 
00000003003e003e003e003e00 
3e003e003e0000000000 00000 
0000000000003e003e003e003e 
003e003e0000000000000C0000 
00000000003e0036003e003e00 
3e003e003e5152525252525252 
525252457c2b6f6e6965630067 
72797c5a525252525252525252 
5243e002e1020088 
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Panther, to no-wy edytor te¬ 
kstów, który niedawno pojawił się 
na naszym rynku. Od pewnego 
czasu mam niewątpliwą przyje¬ 
mność korzystania z niego w mej 
codziennnęj pracy. Używam kom¬ 
putera Atari 800 XL ze stacją dys¬ 
ków 1050 i drukarką STAR NX 
1000 oraz złączem Microprint za 
kupionym w firmie ”Avalon", któ¬ 
ra jest także dystrybutorem tego 
programu. 


Sądzę, ze ten edytor stanowi 
bardzo ciekawą propozycję dia 
posiadaczy zestawu "małe" Atari 
+ drukarka, ponieważ pozwala 
na uzyskanie nie tylko upragnio¬ 
nych "polskich liter", lecz także 
daje wiele możliwości interesu¬ 
jącego opracowania gotowych te¬ 
kstów. Bardzo ważną zaleią tego 
programu jest możliwość pisania 
polsku w sposob nleskom- 
nie trzeba zapamlę- 
przedziwnych kombinacji 
Tu wszystko ułożone 
w sposób logiczny 1 przejrzy- 
w oparciu o popularny 
Można również samo¬ 
dzielnie projektować różnorodne 
kroje pisma, z czego z pewnością 
ucieszą się wszyscy cl którzy 
dbają nie tylko o treść, ale 
1 o ciekawy wygląd pisanych 
przez siebie tekstów. Przykładem 
ilustrującym możliwość tworze¬ 
nia własnego fontu Jest umiesz¬ 
czona w zestawie cyrylica 

Każdy użytkownik "Panthera" 
może ustawić sobie tryb pracy 
edytora w sposób dla siebie naj¬ 
wygodniejszy, korzystając z prze¬ 
łączników zawartych w opcji SE¬ 
TUP. Sama bardzo często stosu¬ 
ję funkcję Click służącą do wy¬ 
łączania dźwięku towarzyszące¬ 
go naciskaniu klawiszy, który na 
dłuzszą metę może być męczący. 
Fakt, ze można się go pozbyć bez 
konieczności sięgania do pokręt¬ 
ła głośności w monitorze, znacz¬ 
nie ułatwia osiągnięcie koncen¬ 
tracji podczas pracy W podobny 
sposob można także zmieniać ja¬ 
skrawość i kolor znaków widnie¬ 
jących na ekranie. 


Inna cenna zaleta, to zdolność 
współpracy z praktycznie wszy¬ 
stkimi dostępnymi na naszym 
rynku typami drukarek, dzięki 
czemu program ten jest narzę¬ 
dziem prawdziwie uniwersal¬ 
nym 


Spośród wykorzystywanych 
przeze mnie funkcji "Panthera" 
za Jedną z ciekawszych uważam 
możliwość •wpisywania w tekst 
poleceń dla drukarki. Pozwala to 
na uzyskanie bardzo ładnych 
efektów polegających na wyróż¬ 
nieniu zaznaczonych fragmentów 
tekstu przez ich podkreślenie. 


pogrubienie lub rozciągnięcie. Do¬ 
konuje się tego za pośrednictwem 
symboli, które można samemu 
ustalać poprzez wpisanie ich defini¬ 
cji do tablicy konwersji. 

Ponadto można także dokonywać 
różnorodnych operacji z całością 
tekstu na przykład zaznaczyć 
w nim jakiś fragment (blok) a na 
stępnie przenieść go w inne miej¬ 
sce, powielić lub nawet całkiem 
usunąć. Możliwe Jest także wyszu¬ 
kiwanie pojedynczych słów 1 zamie¬ 
nianie na zupełnie inne, lub tez ka 
sowanie ich. 

Zainteresowanych bardziej szcze¬ 
gółowym opisem wszystkich funkcji 
programu odsyłam do Jego instru¬ 
kcji Jest ona zredagowana w for¬ 
mie mlni-pod ęcznika 1 napisana 
w sposób bardzo przystępny. Zro¬ 
zumienie jej nie powinno sprawić 
większych kłopotow nawet tym 
spośrod użytkowników których 
można określić Jako początkują 
cych. Gdyby nawet wystąpiły jakieś 
problemy, nie należy się nimi zra¬ 
żać, lecz uważnie i spokojnie prze¬ 
czytać odpowiedni fragment jeszcze 
raz, a pożądany efekt z pewnością 
zostanie osiągnięty. Stwierdzenie to 
wypływa z moich własnych do¬ 
świadczeń, Jako że na początku 
mych kontaktów z Pantherem" 
miałam pewne kłopoty, jedakze im 
dłużej pracuję z owym edytorem, 
tym trudniej ml wyobrazić sobie 
pracę z jakimkolwiek innym Co 
prawda nie korzystam z wszystkich 
jego funkcji, jednak miło Jest wie¬ 
dzieć, ze gdyby zaistniała taka po¬ 
trzeba, będę mogła po nie sięgnąć. 

Warto także wspomnieć o opra¬ 
wie graficznej, która Jest bardzo 
miła dla oka i znacznie uprzyje¬ 
mnia korzystanie z programu. Jest 
przykładem na to, ze program użyt¬ 
kowy może wyglądać ładnie 1 posia¬ 
dać własną estetykę. 

Szczerze zachęcam wszystkich 
posiadczy drukarek współpracują¬ 
cych z 'małym' Atari do zaintereso¬ 
wania się "Pantherem”. Z pewno¬ 
ścią znajdą w nim bardzo cenne 
i pomocne w pracy narzędzie, bez 
którego wkrótce nie będą mogli się 
obejść. 


Basta 
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Krzysztof Wychowałek z Łodzi 

Dziękuję za wydrukowanie mojego programu pt. 

Wielkanoc". Szkoda tylko, ze ostatnia, piąta linia zo¬ 
stała przez niedopatrzenie nie wydrukowana. Chciał¬ 
bym więc przypomnieć, jak powinna ona wyglądać 

5 ?L; ”/";L+l; ” .0”;V; •'. ";A;GOTO 1 
(zmienna L oznacza dzień miesiąca pierwszego dnia 
świąt Wielkiej Nocy, zmienna V przyjmuje wartość 
3 lub 4 i oznacza miesiąc, w którym przypadną 
święta - marzec lub kwiecień) 

Przy okazji inf ormuję, ze metoda Gaussa do oblicza 
nia daty Wielkanocy znajduje się w książce Szczepana 
Jelenskiego "Siadami Pitagorasa . Metoda ta ma jed 
nak pewną wadę , której nie mogłem usunąć pisząc 
program, gdyż byłem związany ograniczeniem pięciu 
linii Otóż od reguły Gaussa Istnieją dwa wyjątki: 

1) gdy według obliczeń Wielkanoc powinna przy¬ 
padać 26 kwietnia, obchodzimy ją 19 kwietnia 
(przypadek ten zdarzył się w roku 1609 i 1961) 

2) gdy Wielkanoc ma przypaść 25 kwietnia, jest 
obchodzona 16 kwietnia (np. w roku 1954) 

Z przykrością muszę stwierdzić, ze pod względem 
ilości popełnianych (w druku?) błędów zajmujecie 
chyba na pewno pierwsze miejsce w naszym kraju. 
Gdy zamieścicie sprostowanie do erraty znajdziecie 
się w czołówce światowej Mimo to nadal pozostanę 
waszym wiernym czytelnikiem. 

Tak Jest! Przyznajemy się bez bielą Popełniamy dużo 
błędów Nie robimy tego celowo Obiecujemy bardziej 
się starać A zresztą to miło Jest w czymś przodować, 
czyż nic? 


Grzegorz Dapkiewicz z Będzina 

Nabyłem na giełdzie miecze Valgirda, Chciałbym ku 
pic od niej opis oraz od Seksmisji. Jeżeli jest to możli¬ 
we proszę o przysłanie ich. Zapłacę przy odbiorze. 

Drogi Grzesiu' 

Jeżeli dobrze rozumiem, kupiłeś piracką wersję gry 
"Mlecze Vałdglra" Wersja oryginalna bowiem Jest 
sprzedawana wraz z opisem. Pomyśl: obdarzyłeś swoi¬ 
mi z trudem zdobytymi pieniędzmi pasożyta, korzysta¬ 
jącego bez skrupułów z efektów cudzej pracy Tymcza¬ 
sem autor tej świetnej gry być może z tego powodu 
przymiera teraz głodem Jak wiesz, nie Jest to Jakaś 
bliżej nieokreślona firma zachodnia, lecz polski pro¬ 
gramista, Henryk Cygert Powinieneś się wstydzić. Za¬ 
uważ. ze Jeśli wskutek Twej postawy programiści po 
wymierają to kto będzie pisał nowe gry? Bo chyba nie 
piraci? Opisy gier drukujemy w miarę możliwości na 
łamach TA Czytuj więc regularnie Tajemnice! Pa. 


(Jbw) 
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35-959 Rzeszów 2 


Zamawiam nagrane na 


programy zamieszczone 
w - - numerze TA 


kasecie 

dysku 


moj adres: 





Piotr Miller z Sokołowa Podlaskiego 

Panowie Krzyżak i Sobala w numerze 3/92 ostrze¬ 
gali czytelników Waszego pisma przed zakupem gry 
ROBBO 20 MB. Idąc za ich przykładem chciałbym 
ujawnić praktyki Studia Komputerowego W1ZARDS 
z Łodzi, które ogłaszało się w tym samym numerze 
TA Otoz reklamowana w tym ogłoszeniu gra pt. 
"PROFESSIONAL K1LLERS 2" Jest kaleką wersją pro¬ 
gramu, napisanego przeze mnie w zamierzchłych 
czasach i skradzionego ml kilka miesięcy temu. Gra 
nigdy nie była przeznaczona do rozpowszechniania, 
a zawarte w niej błędy pozostawiłem bez poprawek, 
ponieważ rzecz nie była warta zachodu. Wzmianki 
na temat poprawek dokonanych rzekomo przez zło¬ 
dziei z SK " WIZARDS ” wzbudzają moje niedowierza¬ 
nie, bowiem w celu ich dokonania należałoby dyspo 
nowac wersją źródłową programu. Prawdopodobnie 
jedną z niewielu zmian dokonanych w łódzkim "Stu 
dlo Komputerowym " była wymiana nazwisk (gdy pi¬ 
sałem grę, nikomu nie przyszedłby do głowy zamach 
na Wałęsę). 


Powyższy tekst pozostawiam 
bez komentarza. Być może. Jak 
to często w takich przypadkach 
bywa, komentarz dopisze samo 
życie Jeżeli dojdą mnie o tym 
Jakieś słuchy, z przyjemnością 
się z Państwem nimi podzielę 


Redaktor 
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REDAKCJA NIE PONOSI ODPOWIEDZIALNOŚCI ZA TREŚĆ ZAMIESZCZANYCH OGŁOSZEŃ. 


PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mles 

6-mtes. 

n=l 

8 900 

26 700 

53 400 

B 

II 

to 

8 300 

49 800 

99 600 

n=3 

8 000 

72 000 

144 000 

n=4 

7650 

91 800 

183 600 

n=5 do 9 

7300 

21 900*n 

43 800*n 

n= 10 lub więcej 

6 750 

20 250*n 

40 500*n 


W celu zamówienia prenumeraty należy wypełnić czytel¬ 
nie blankiet wpłaty na konto (dostępny na pocztach 
1 w bankach) podając na odwrocie Imię, nazwisko 1 adres 
zamawiającego oraz liczbę egzemplarzy danego numeru 
wraz z okresem prenumeraty Pieniądze prosimy wpłacać 
na konto 

'Tajemnice Atari s.c. Rzeszów, ul. Targowa 1/801 
Bank Przemysłowo-Handlowy HI Oddział Rzeszów 
nr 326807-23650-136 




ogłaszają 

'juan&mozast LOSDWAiiiis 
itfiCilÓLt WdKftil o V/ zon 


dla zamawiających gry i programy 
w L.K."Avalort" 

W każdym numerze TA będzie 
zamieszczany kupon, który upoważnia 
do wzięcia udziału w losowaniu. 


USŁUGI KOMPUTEROWE 

Naprawy sprzętu 

• stacje dysków • komputery • joysticki 

• magnetofony • monitory 

Modernizacje 

• rozszerzenia pamięci 

• TURBO do stacji dysków 1 magnetofonów 

Oprogramowanie 

Rzeszów, ul. Poznańska 2a tel. 429-19 w. 6 


Ceny ogłoszeń ramkowych w TA: 

• 1 cm 2 12000 

• Cała strona 6 min + 100% za kolor 

• Ostatnia strona (kolor) 15 min 

Ogłoszenia drobne: 

• każde słowo 5 000 


Redakcja Tajemnic ATARI informuje, że posiada 
Jeszcze dużą liczbę egzemplarzy archiwalnych czaso¬ 
pisma. Można je nabywać wysyłkowo wpłacając pie¬ 
niądze podobnie. Jak przy prenumeracie (przekazem 
bankowym na konto podane wyżej). Oto wykaz po 
siadanych przez nas numerów wraz z cenami. 


TA 5/91 

Cena: 6 900 zł 

TA 6/91 

Cena: 6 900 zł 

TA 7/91 

Cena: 6 900 zł 

TA 8/91 

Cena: 8 900 zł 

TA 1/92 

Cena: 8 900 zł 


Co miesiąc 100 szczęśliwców 

którzy przyślą oryginalny kupon 
wraz z zamówieniem 
(spis programów na ostatniej stronie), 
otrzyma jedną z zamawianych pozycji 


Sześć nowych wersji ROBBO! Szalone pomysły, 
wspaniałe kolory, świetna zabawa dla dzieci 1 doro¬ 
słych w zestawach po 2 gry + niespodzianka. 

Cena kasety 37 000, dysku 35 000. 

Andrzej Krzyżak, os Centrum-B nr 2 m. 48 
31-926 KRAKÓW 


za darmo. 


Pozostałe zamówienia będą 
realizowane w normalnym trybie. 



Termin nadsyłania zamówień 
z kuponami z numeru 4 TA 
mija 31 lipca. 






W 


Redakcja Tajemnic Atari Informuje o możliwości wysyłkowego nabywania 
wszystkich programów zawartych w dowolnym numerze pisma, nagranych na kasetę 
(tylko w transmisji normalnej) lub na dyskietkę W skład zbioru wchodzą wszystkie 
listingi, zamieszczone w wybranym przez Zamawiającego numerze Tajemnic. 

Cena wersji kasetowej wynosi 25.000 zł, zaś dyskowej 23 000 zł. W cenę wli¬ 
czony jest koszt nośnika, nagrania, opakowania oraz opłaty pocztowe Same 
listingi są za darmo. 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia (na od¬ 
wrocie) 1 po naklejeniu go na kartę pocztową, wystanie na adres redakcji po¬ 
dany w stopce 

Uwaga! Prosimy o nleprzysyłanle wcześniej należności, będzie ona bowiem re¬ 
gulowana przy odbiorze przesyłki 































































W kolejnych kilkudziesięciu komórkach pamięci na¬ 
szego ATARI znaleźć można informacje szczególnie in 
teresujące dla miłośników (lub może raczej dla twór¬ 
ców?) gier. Korzystanie z komputera w celach rozry¬ 
wkowych możliwe jest dzięki temu, ze potrafi on odbie¬ 
rać informacje od szczególnych urządzeń zewnętrz¬ 
nych, jakimi są manipulatory Urządzenia te podłącza 
się do znajdujących się z boku komputera gniazd i juz 
można siadać przed monitorem, aby kolejny raz strze¬ 
lać do wszystkiego, co się rusza. 

Oprócz najbardziej znanego joysticka, do kompute¬ 
rów ATARI można podłączyć także tzw paddle, nazwa 
ny po polsku wiosełkiem, choć może lepiej byłoby mó¬ 
wić po prostu potencjometr, bo ten manipulator działa 
właśnie na zasadzie potencjometru Tworzy pomiędzy 
odpowiednimi bolcami w gnieżdzie połączenie o pew¬ 
nej oporności. Ponieważ tę oporność można regulować, 
kręcąc gałką w lewo i w prawo, to łatwo jest na podsta 
wie wskazań paddle sterować ruchomymi obiektami 
na ekranie. Oczywiście wartość oporności odczytuje się 
za pomocą pewnych komórek pamięci, podłączonych 
do układów wejscia/wyjścia, w których znajduje ona 
swoje odzwierciedlenie liczbowe. 

624, $0270 PADDLO 

Umowna wartość potencjometru 0 Cień komórki 
o adresie $d200 (53767). której zawartość jest tutaj 
przepisywana w każdym przerwaniu VBLANK. Jeśli 
zależy nam na użyciu trybu szybkiego odczytu poten¬ 
cjometrów, o którym wspomniałem w poprzednim od¬ 
cinku, to musimy odwoływać się właśnie do adresu 
$d200. 

Ta komórka zawiera wartość pomiędzy 0 a 228. za 
lezną od położenia potencjometru 

Do starych modeli ATARI, które były przeznaczone 
głownie do gier można było podłączyć do ośmiu wiosc- 
łek Do komputerów serii XL/XE można przyłączyć je¬ 
dynie cztery potencjometry, a 1 tak grupuje się je, uzy 
wając po jednym gniazdku dla każdych dwóch z nich 
Z tego wynika, ze pierwsze gniazdko joysticka służy do 
podłączenia wiosełek 0 i 1. 

Poniżej znajduje się krotki program, który odczytuje 
wartość komórki PADDLO. Po podłączeniu potencjo¬ 
metru można obserwować, jak zmienia się wartość 
w tej komórce w zależności od położenia gałki paddle 
Osoby, które nie mają tego urządzenia mogą obejrzeć 
program w działaniu, dotykając poślinionym palcem 
bolców w gnieżdzie joysticka. Ponieważ powierzchnia 
ludzkiej skóry także ma jakiś opor elektryczny, pro¬ 
gram odczyta zmieniającą się wartość wskazywaną 
przez komórkę PADDLO Tego samego programu moż¬ 
na użyć dla skontrolowania pozostałych potencjome¬ 


trów. trzeba tjlko zamiast 624 wpisać w wierszu 20 
adres komorki, która odpowiada za interesujący nas 
potencjometr 

10 GRAPHICS 0:POKE 752,1 
20 ? PEEK(624);" 

30 IF PEEK( 764)0255 THEN 50 
40 ? CHR$(28);:GOTO 20 
50 POKE 764,255:POKE 752,0:END 

625-627, $0271-$0273 PADDL1-PADDL3 

Umowna wartość potencjometrów 1 -3. 

628, $0274 PADDL4 

Umowna wartość potencjometru 4. Jak juz pisałem, 
współczesne komputery ATARI nic są przystosowane 
do obsługi więcej niz czterech potencjometrów, stąd ta 
i następne trzy komorki pamięci zawierają informacje 
o położeniu jednego z tych wiosełek, którego przyłącze¬ 
nie jest możliwe Lokacje te zachowano jedynie dla za¬ 
pewnienia kompatybilności ze starszymi modelami 
ATARI 

629-632, $0275—0278 PADDL5-PADDL7 

Umowna wartość potencjometrów 5-7 

632, $0278 STICKO 

Położenie joysticka 0 Cień komórki o adresie $d300 
(54016). STICKO zawiera zawsze jedną z dziewięciu 
możliwych liczb, informując nas o aktualnym położe¬ 
niu joysticka włączonego do pierwszego gniazda. 

Szczerze mówiąc, w tej komórce są wykorzystywane je¬ 
dynie cztery mnie] znaczące bity, i to w foki sposób, że 
normalnie sa ustawione, a każdy ruch joystickiem powo¬ 
duje skasowanie jednego z nich 

0 góra 

1 dół 

2 lewo 

3 prawo 

Na rysunku zesta 
wiono wartości zapisy 
wanc w komórce 
STICKO w zależności 
od położenia joysticka. 

Oczywiście każdy 
ruch po skosie powo 
duje skasowanie dwóch sposród wymienionych bitów. 
I fok np o ile w stanie spoczynku joystick generuje" li¬ 
czbę 15 (%1111), to poruszenie nim w lewo w górę da¬ 
je wartość 10 (%1010), wynikającą ze skasowania bi¬ 
tów 0 i 2. 
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Do skontrolowania położenia joysticka można także 
użyć programu przeznaczonego dla potencjometru 
(patrz powyżej). Wystarczy w tym celu zmienić w wler 
szu 20 liczbę 624 na 632 1 Juz można sprawdzić, jak 
komputer "widzi" joystick. Gdyby zdarzyło się, ze pro¬ 
gram pokazuje jakąś Inną, nlz pokazane na rysunku, 
wartość to nie należy się zdumiewać Napisałem 
wprawdzie o dziewięciu liczbach, ale napisałem także 
o czterech bitach. Jak łatwo policzyć, z czterech bitów 
można złozyć liczby od 0 do 15. Teoretycznie więc, 
w przypadku np. uszkodzenia joysticka, program od 
czytujący jego położenie może wykryć pewne, nazwijmy 
to niedozwolone, wartości. Z drugiej strony można so¬ 
bie wyobrazić nieco inny joystick, np. taki. Jakie stosu 
je się w modnych ostatnio maleńkich grach elektroni¬ 
cznych. Nie ma tam drążka, a jedynie przyciski sym¬ 
bolizujące cztery możliwe kierunki (osiem, jeśli weźmie 
się pod uwagę kierunki pośrednie). Nic nie stoi na 
przeszkodzie temu, by samodzielnie zrobić tego rodzą 
ju manipulator Można by pomyśleć także o czymś bar 
dziej skomplikowanym, np. o specjalnej klawiaturze 
podłączanej do, gniazda z boku komputera, której moż¬ 
na by używać tylko jedną ręką... 

Przy okazji przypomniało ml się pewne wydarzenie 
Otóż kiedyś Siedzieliśmy z pewnym kolegą przed kom¬ 
puterem 11 bardzo się nudziliśmy Mieliśmy ochotę za¬ 
grać w grę "Boulder Dash ’, łeez niestety nie mieliśmy 
joysticka. Pd prostu pech! Probierni jednak dał się roz ¬ 
wiązać. Napisaliśmy wtedy maleńki programik - coś 
w rodkajM. emulatora joysticka na klawiaturze Troszkę 
oszukaliśmy komputer ale zabawa była wspaniała Ni¬ 
komu nie mogę obieeac, ze ten programik będzie dzia¬ 
łał z każdą grą 'Zazwyczaj wykonują one przed urucho 
mieniem gorący start, ktory zabija istniejące przerwa 
nla), lecz może się komuś przydać. Listing programu, 
zamieszczony na stronie 25, należy zasemblowae na 
dysk lub kasetę przy pomocy QA, uzyskując w ten spo¬ 
sób samodzielny program zdatny do wykonania pod 
kontrolą DOS-u lub COS-u 

633, $0279 STICK1 

Położenie joysticka 1 I tutaj, mimo, że nie ma juz 
możliwości podłączenia czterech joysticków, zachowa¬ 
no az cztery rejestry dla nich 

634-635, $027a-$027b STICK2-STICK3 

Położenie joysticków 2-3, 

636, $027c PTRIGO 

Wskaźnik naciśnięcia przycisku na potencjometrze 
0. Clen komórki $d300 (54016) Normalnie zawiera li¬ 
czbę jeden, a w przypadku naciśnięcia przycisku do tej 
komorki wpisywane jest zero 

Jak można zauwazyc, jest to komórka związana 
z tym samym rejestrem, co joystick Można więc, bada¬ 
jąc PTRIGO i PTRIG1 zorientować się, czy drążek zo¬ 
stał wychylony w prawo lub w lewo Niestety nie można 
w ten sposób dowiedzieć się niczego na temat ruchów 
joystickiem w pionie. Maleńki programik poniżej dru¬ 
kuje znak < po wychyleniu pierwszego joysticka w le¬ 
wo natomiast znak > po wychyleniu go w prawo 


Oczywiście odpowiednia zmiana numerów komorek 
w wierszu 30 da nam informacje o drugim joysticku. 

5 DIM LT$(1):LT$=CHR$(30) 

10 GRAPHICS 0:POKE 752,1 
20 ? CHR$(20);LT$; 

30 LR=PEEK(637)-PEEK(636) 

40 IF LR=1 THEN ? “<•’; LT$; :GOTO 30 
50 IF LR=—1 THEN ? ">";LT$;:GOTO 30 
60 IF PEEK(764 )=255 THEN 20 
70 POKE 764,255:POKE 752,0:END 

637-643, $027d-$0283 PTRIG1-PTRIG7 

Wskaźniki naciśnięcia przycisków na potencjome¬ 
trach 1-7 

644, $0284 STRIGO 

Wskaźnik naciśnięcia przycisku na Joysticku 0 Cień 
komórki $d010 (53264). Normalnie zawiera jeden, na¬ 
ciśnięcie tzw fire na joysticku powoduje wpisanie tutaj 
zera Modyfikując wiersz 20 pierwszego programiku 
przykładowego można sprawdzić stan tej komorki, 

645-647, $0285-$0287 STRIG1-STRIG3 

Wskaźniki naciśnięcia przycisków na joystickach 1-3, 

Kliku następnych komórek pamięci używa do róż¬ 
nych celów system operacyjny. 

648, $288 CSTAT 

Rejestr stanu magnetofonu, 

649, $289 WMODE 

W tej komorce przechowywana Jest informacja 
o tym, czy magnetofon wykonuje operację odczytu (ko¬ 
mórka zawiera 0). czy zapisu (komórka zawiera 128) 

650, $28a BOM 

Wielkość bufora danych dla magnetofonu. Ta komór¬ 
ka zawiera liczbę bajtów danych dla odczytywanego lub 
zapisywanego rekordu, ktory znajduje się pod adresem 
1021 ($03fd). Przybiera wartość od 0 do 128 (taka jest 
długość normalnego rekordu taśmowego) Komorkę tę 
zapisuje OS na podstawie bajtów kontrolnych, poprze¬ 
dzających każdy rekord na taśmie. 

651, $028b ... 

Nieużywana komórka pamięci 

652-653, $028c-$028d NIOPTR 

Niegdyś nieużywane, obecnie zawierają adres proce¬ 
dury obsługi operacji wejścia/ wyjścia dla tzw. nowych 
urządzeń dołączanych do szyny równoległej 

654-655, $026e-$028f NADLOD 

Niegdyś nieużywane, obecnie zawierają adres łado¬ 
wania dla operacji wejścia/ wyjścia nowycłi urządzeń. 

Informacje zawarte w 'Mapie pamięci" z TA 3/92 są 
nieścisłe. Tryby graficzne ANTIC-u 4, 5, 12, 14 mają 
swoje odpowiedniki w BASIC-owych trybach 12, 13 
14, 15. Za popełnioną pomyłkę bardzo przepraszam, 

Jarosław Syrylak 
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W poprzednim artykule pisaliśmy 
o rozkazach ANTICa. Wiemy juz, że 
w pojedynczym rozkazie bity 0-3 
określają najczęściej tryb graficzny 
wyświetlanej linii, natomiast usta 
wlony bit 6 ładuje licznik pamięci 
obrazu Tak więc została nam do 
omówienia rola bitów 4, 5 i 7. 


Przesuw poziomy 


Prześledźmy 

gram: 

następujący 

Procedurę 

Equ 

$8800 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Rtclok 

Equ 

$12 

Pomocnik 

Equ 

$F0 

Dlptre 

Equ 

$230 

Kbcodes 

Equ 

$2FC 

Początek 

Equ 

$00 

Koniec 

Equ 

$23 


Opt List_err+Code_mem 



Org 

Procedurę 


Jsr 

Dlist 

LI 

Inc 

Adress 


Lda 

Adress 


Cmp 

#$23 


Bne 

L2 


Lda 

#$00 


Sta 

Adress 

L2 

Ldx 

#$05 


Jsr 

Wait 


Ldy 

lny 

Kbcodes 


Beq 

LI 


Jsr 

Rts 

Exit 

Dlist 

Ldx 

Dlptrs 


Ldy 

Dlptrs+$01 


Stx 

Pomocnik 


Sty 

Pomocnik+$01 


Ldx 

<Antic 


Ldy 

>Antic 


Stx 

Dlptrs 


Sty 

Rts 

Dlptrs+$01 

Exit 

Ldx 

Pomocnik 


Ldy 

Pomocnik+$01 


Stx 

Dlptrs 


Sty 

Rts 

Dlptrs+$01 

Wait 

Lda 

■#$00 


sta 

Txa 

Rtclok+$02 

W1 

Cmp 

Rtclok+$02 


Bne 

W1 



Rts 


Antic 


Adress 


Dta B($70) 

Dta B($70) 

Dta B($70) 

Dta B($40+$06) 
Dta A(Text) 

Dta B($41) 

Dta A(Antic) 


Org $600 


Text Equ * 

Dta D'. 

Dta D'TAJEMNICE ATARI' 
Dta D'.... 


End of file 

Program wyświetla jedną linię 
trybu $06 ANTICa z przesuwają¬ 
cym się tekstem Na samym począt 
ku program zapamiętuje wektor 
DLPTRS i ustawia go na nasz pro¬ 
gram ANTICa (etykieta Antic) 
Tworzy to procedura Dlist Nas¬ 
tępnie w pętli programu zwiększa 
ny jest młodszy bajt adresu tekstu 
co powoduje, ze tekst się przesuwa. 
Gdy młodszy bajt osiągnie wartość 
$23, oznacza to, ze tekst się skoń 
czył i trzeba go przesuwać od no¬ 
wa. W tym celu młodszy bajt jest 
zerowany. Dzięki temu, ze tekst 
umieszczony Jest od początku szó¬ 
stej strony pamięci, łatwiej wyzna¬ 
czyć Jest adres początku 1 końca 
tekstu 

Ponieważ nasz program byłby wy¬ 
konywany za szybko, to w każdym 
obiegu pętli wywoływana Jest pro¬ 
cedura Walt, realizująca opóźnienie 
przy wykorzystaniu zegara syste¬ 


mowego RTCLOK Długość opóź¬ 
nienia uzależniona jest od zawarto¬ 
ści rejestru X procesora. Pętla wy¬ 
konywana jest dopoki nie zostanie 
naciśnięty klawisz - nie zmieni się 
wartość rejestru KBCODES Gdy to 
nastąpi, wywoływana jest proce 
dura Exit. przywracająca wektor 
DLPTRS Powyższa metoda nie da¬ 
je możliwości "delikatnego" przesu 
wu tekstu (tekst przesuwany jest 
o jeden znak). W obrębie jednego 


Procedurę 

Equ 

$8800 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Rtclok 

Equ 

$12 

Pomocnik 

Equ 

$F0 

Licznik 

Equ 

$F2 

Dlptrs 

Equ 

$230 

Kbcodes 

Equ 

$2FC 

Hscrol 

Equ 

$D404 

Początek 

Equ 

$00 

Koniec 

Egu 

$23 

Opt List err+Code mem 


Org 

Procedurę 


Jsr 

Dlist 


Lda 

#$07 


Sta 

Licznik 

Ll 

Dec 

Licznik 


Lda 

Licznik 


Bpi 

L3 


Inc 

Adress 


Lda 

Adress 


Cmp 

#Koniec 


Bne 

L2 


Lda 

#Początek 


Sta 

Adress 

L2 

Lda 

#$07 
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Sta 

Licznik 

L3 

Sta 

Hscrol 


Ldx 

#$01 


Jsr 

Wait 


Ldy 

Kbcodes 


Iny 



Beq 

LI 


Jsr 

Exit 


Rts 


Antic 

Dta 

B($70) 


Dta 

B($70) 


Dta 

B($70) 


Dta 

B($40+$06+$10) 

Adress 

Dta 

A(Text) 


Dta 

B($41) 


Dta 

A(Antic) 


Org 

$600 

Text 

Equ 

* 


Dta D'. 

Dta D'TAJEMNICE ATARI' 
Dta D'. 

End of file 


znaku przesuw płynny realizowany 
jest przy pomocy ustawionego bitu 
czwartego (HSC - Hori/ontal Scrol 
ling) w rozkazie ANTlCa oraz reje¬ 
stru HSCROL ($D404) Spójrzmy 
na poniższy program 

Procedury DList Walt oraz Exit 
pozostały takie same Nie będziemy 
ich omawiać. W programie ANTICa 
zmienił się tylko jeden rozkaz. Do 
LMS dodaliśmy $10, czyli ustawili 
śmy czwarty bit. Ustawienie tego bi 
tu nie wystarcza, aby tekst przesu 
wał się płynnie Kolejne wartości 
od $00 do $07 wpisywane do reje¬ 
stru HSCROL powodują przesuw 
w obrębie jednego znaku. Przy 
płynnym przesuwie ze strony pra¬ 
wej na lewą konieczne Jest wpisy¬ 
wanie wartości od $07 do $00 Aby 
tekst przesuwał się w całości nale¬ 
ży połączyć przesuw zgrubny (co Je 
den znak) z przesuwem delikat¬ 
nym Rejestru HSCROL nie mo/na 
bezpośrednio zwiększać lub 
zmniejszać, ponieważ Jest on mody 
fikowany przez system operacyjny 
(nie Jest to prawda, w istocie 
HSCROLL jest rejestrem sprzęto 
wym, działającym tylko w trybie za¬ 
pisu, bez możliwości odczytania za 
wartości - przyp red ). W tym celu 
należy użyć pomocniczego rejestru 
(LICZNIKA). Na samym początku 
nasz licznik przyjmuje wartość 
$07, przepisywaną do HSCROL’a 
i w kolejnych obiegach pętli zmniej¬ 


szany jest o jeden. Jeśli licznik 
osiągnie zero, to następuje przesuw 
zgrubny (opisany przy poprzednim 
programie) i wszystko powtarza się 
od początku. Przerwanie programu 
następuje po naciśnięciu klawisza. 

Przesuw pionowy 

Podobnie jak rejestr HSCROL 
umożliwia delikatny przesuw jed 
nego znaku w poziomie, tak rejestr 
VSCROL ($D405) odpowiada za 
delikatny przesuw w plonie Aby 
płynny przesuw w pionie był mozll 
wy, należy ustawie piąty bit (VSC - 
Vertlcal Scrolling) w rozkazie pro- 


gramu ANTICa 
stępny program 

Popatrzmy na na 

Procedurę 

Equ 

$8800 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Rtclok 

Equ 

$12 

Pomocnik 

Equ 

$F0 

Licznik 

Equ 

$F2 

Dlptrs 

Equ 

$230 

Vscrol 

Equ 

$D405 


Opt List_err+Code_mem 



org 

Procedurę 


Jsr 

Dlist 


Lda 

#$0F 


Sta 

Licznik 

LI 

Dec 

Licznik 


Lda 

Licznik 


Beq 

L2 


Sta 

Vscrol 


Ldx 

#$02 


Jsr 

Wait 


Beq 

LI 

L2 

Ldx 

#$50 


Jsr 

Wait 

L3 

Inc 

Licznik 


Lda 

Licznik 


And 

#$0F 


Beq 

L4 


Sta 

Vscrol 


Ldx 

#$02 


Jsr 

Wait 


Beq 

L3 

L4 

Jsr 

Rts 

Exit 

Antic 

Dta 

B($70),B($70) 


Dta 

B($70),B($70) 


Dta 

B($40+$07+$20) 

Adress 

Dta 

A(Text) 


Dta 

B($41) 


Dta 

A(Antic) 


org 

$600 


Text Equ * 

Dta D'..TAJEMNICE ATARI..' 

End of file 

Korzystamy ze znanych nam 
z poprzednich programów proce¬ 
dur: Dlist Wait 1 Exit. Modyfikuje¬ 
my program ANTICa tak, aby wy 
świetlał on jedną linię w trybie $07 
z ustawionym bitem piątym (do roz¬ 
kazu dodaliśmy $20) Linia w try 
bie $07 jest dwa razy większa niż 
w trybie $06 1 $02, dlatego 

VSCROL będzie przyjmował warto 
ścl od $00 do $0F Jeżeli program 
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taje 


1 


(SM 


ANTICa posiada dwie następujące 
po sobie linie AiB, np trybu $07 
1 w linii A bit piąty nie Jest ustawio¬ 
ny, natomiast w linii B Jest ustawio¬ 
ny, to tekst umieszczony w linii B, 
przesuwany delikatnie przy pomocy 
rejestru VSCROL (wartości od $00 
do $0F) będzie się "chował" pod li 
nię A. Ilustruje to powyższy pro¬ 
gram, z tym, ze linią A jest linia pu¬ 
sta. Główna część programu skła¬ 
da się z dwóch pętli. W pierwszej 
z nich zmniejszany jest rejestr 
VSCROL przy pomocy rejestru po¬ 
mocniczego (LICZNIKA), co daje 
efekt wysuwającego się tekstu Je¬ 
śli licznik osiągnie wartość zero, 
oznacza to, że tekst wysunął się do 
końca. Po dłuższej przerwie licznik 
(a tym samym VSCROL) Jest zwię¬ 
kszany w następnej pętli do warto¬ 
ści $0F 1 tekst się chowa Oto kolej¬ 
ny przykład programu : 


Proceduro Equ $8800 


List nem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Rtclok 

Equ 

$12 

Pomocnik 

Equ 

$F0 

Licznik 

Equ 

$600 

Ile 

Equ 

$601 

Dlptrs 

Equ 

$230 

Vscrol 

Equ 

$D405 

Llength 

Equ 

$28 

Opt List err+Code mem 


Org 

Procedurę 


Jsr 

Dlist 


Ldx 

#$15 


Stx 

Ile 

LI 

Lda 

#$07 


Sta 

Licznik 


Sta 

Vscrol 

L2 

Ldx 

#$01 


Jsr 

Wait 


Dec 

Licznik 


Lda 

Licznik 


Sta 

Vscrol 


Bpi 

Sec 

L2 


Lda 

Adress 


Sbc 

CLlength 


Sta 

Adress 


Lda 

Adress+$01 


Sbc 

>Llength 


Sta 

Adress+$01 


Dec 

Ile 


Lda 

Ile 


Bpi 

LI 


Jsr 

Exit 


Ldx 

<Text 



Ldy 

>Text 



Stx 

Adress 



Sty 

Adress+$01 


Rts 



Antic 

Dta 

B($70) 

,B($70) 


Dta 

B($70) 



Dta 

B($40+$02+$20) 

Adress 

Dta 

A(Text) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($22) 

,B($22) 


Dta 

B($02) 



Dta 

B($41) 



Dta 

A(Antic) 


Org 

$A400 


Text 

Egu 

★ 


Dta D' 


r 


Dta D' 

TAJEMNICE ATARI' 

Dta D' 


r 



End of file 

Program tworzy 22 Unie obrazu 
w trybie $02 ANTIC’, w których bę¬ 
dzie przesuwany tekst od Unii pier- 
wszej do ostatniej. JezeU program 
ANTICa posiada dwie, następujące 
po sobie linie A i B, np. trybu $02 
i w obu Uniach ustawiony jest bit 
piąty, to tekst umieszczony w UnU 
B, przesuwany delikatnie poprzez 


zmianę wartości rejestru VSCROL 
od $00 do $07 będzie przesuwał 
się z IinU B do A. W dalszym ciągu 
używamy procedur Dlist, Walt 
lExit Dodatkowy rejestr ILE za¬ 
wiera Uczbę UnU do przesunięcia. 
Na początku programu otrzymuje 
on wartość $15. Przy każdy obiegu 
pętU zmniejszany Jest o Jeden. Na¬ 
stępnie licznik i VSCROL otrzymu¬ 
ją wartość $07. Zmniejszanie war¬ 
tości Ucznlka (i VSCROL’a) w kolej¬ 
nej pętli powoduje przesunięcie się 
tekstu w dół. Gdy wartość Ucznlka, 
a zarazem VSCROL’a osiągnie zero 
- konieczne jest przesunięcie 
zgrubne tekstu W tym celu musimy 
zmniejszyć adres, skąd ANTIC po¬ 
biera dane do wyświetlania, o dłu¬ 
gość UnU, czyU w tym przypadku 
$28. Cała operacja powtarza się od 
nowa, aż rejestr ILE osiągnie war¬ 
tość $FF, Przed zakończeniem wy 
konywania programu przywracana 
jest początkowa wartość wektora 
wskazującego na tekst. UWAGA: 
Przy przesuwie pionowym ostatnia 
Unia wyświetlana na ekranie nie 
może mieć ustawionego piątego bi¬ 
tu (patrz program powyżej) 

To wszystko w tym artykule, za 
miesiąc zajmiemy się bitem siód¬ 
mym, czyU przerwaniem Display 
List. 


Tomasz Bielak 
Rafał Bielecki 
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A.D. 2044 jest świetną grą przygodową, której ce¬ 
lem jest nie tylko szybkie jej ukończenie, ale rów¬ 
nież gra sama w sobie. Występuje w nie] wiele za¬ 
bawnych sytuacji. Warto na przykład czytać tablicz¬ 
ki znajdujące się na drzwiach i ścianach oraz badać 
różne rzeczy. Komentarze na ich temat wywołują 
uśmiech na twarzy gracza. Z tych powodów warto 
kilkakrotnie próbować przejść grę bez czytania po¬ 
niższego opisu, który z tego właśnie powodu został 
podzielony na oddzielne etapy, aby gracz utknąwszy 
w którymś momencie gry nie musiał czytać całości. 





No, a teraz Albercik do roboty! 


W wyniku eksperymentu naukowego znalazłeś się 
w społeczeństwie 2044 roku Społeczeństwo to składa 
się wyłącznie z kobiet, a Twoim zadaniem jest odtwo¬ 
rzenie Jego męskiej części. Na początek dobre rady: 
Każdy przedmiot potrzebny Jest Cl tylko raz. W astarę 
możliwości, po użyciu trzeba się go pozbyć w celu 
opróżnienia "kieszeni" na następne przedmioty. Aby 
otworzyć drzwi lub skrzynkę, musisz wskazać kurso¬ 
rem klamkę lub wieczko. Wszędzie tam, gdzie bierzesz 
Jakiś przedmiot, możesz zostawić Inny Przedmioty wy¬ 
rzucone tracisz bezpowrotnie. 



poziom m 

Aby wydostać się z pomieszczenia, w którym się obu¬ 
dziłeś, musisz zapalić papierosa. Paczka papierosów 
znajduje się pod materacem. Nie zapomnij zjeść posił¬ 


ku w celu odzyskania sił po kilkudziesięcioletnim śnie 
Odszukaj śmietnik, gdzte z pojemnika na suchy chleb 
weź zdechłą mysz (Jest za kromką chłeba). Teraz czas 
na pomieszczenie milicji. Znajdująca się tam funkcjo¬ 
nariuszka nie pozwala Ct go zbadać. Kobiety zwykle 
boją się myszy. Po otwarciu drzwi wrzuć zdechłą mysz 
do środka. Zapamiętaj hasło zapisane na zagiętym ro¬ 
gu kalendarza (ASIA) oraz weź nóż 1 wyłącz pole siłowe 
(szafka pod biurkiem). Na lewo od pomieszczenia. 




w którym się obudziłeś, znajduje się system łączności 
z centralnym sterownikiem windy. Klucz Jest w pomie¬ 
szczeniu obok windy. Znajdziesz go w kieszonce fartu¬ 
cha wiszącego w szafie po prawej stronie. Przy okazji 
możesz obejrzeć wieszak oraz zawartość górnej szafki. 
W centrum łączności ze sterownikiem windy przesuń 
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krzesło 1 wciśnij przyciski 1 1 3 oraz podaj hasło Teraz 
będzie można skorzystać z windy. 

POZIOM II 

Wjedź windą na poziom drugi. W sekretariacie działu 
Archeo na biurku znajdziesz kanapkę oraz legitymację 
Członka Sekretariatu. Kanapkę możesz zjeść, a legity¬ 
mację weź ze sobą 1 wróć do windy. 



POWIERZCHNIA 


Ciemność. Znajdź miejsce gdzie da się przeciąć za¬ 
słonę przy pomocy noża. Wejdź do domu (nie zapomnij 
przekręcić klucza w drzwiach). Na ścianie znajdują się 
dwie zabytkowe tarcze. Zdejmij tę po lewej 1 włącz 
prąd. Idź do biblioteki 1 spróbuj zasłonić okna. Przepa¬ 
liły się bezpieczniki. W łazience znajdziesz kawałek 
drutu łączący przerwany łańcuszek od spłuczki. Weź 
przepalony bezpiecznik i podwatuj go we wnęce znaj- 
dupjcej się za drug i tarcz . Teraz w bibliotece zna|dz 



POZIOM IV 


Z|ed/ na poziom czwarty Do okienka krzyknij cokol¬ 
wiek a portierce, która się tam pojawi, pokaż leglty 
mację W pokoju ratowniczki w górnej szafce po lewej 
stronie znajdziesz kapok, załóż go -Klucz do szalki Jest 
w książce leżącej na stole. Idź na basen 1 zabierz pły 
wającej Lamii Reno magnetyczną bransoletkę Znajdź 
nlezamknlętą przebieralnię. W szafce znajduje się wa¬ 
lizka, klórą otwiera się przy pomocy bransoletki Za¬ 
bierz z niej przepustkę 



atrapy książek 1 odblokuj ukryte drzwi. 


POZIOM II 

Drugą windą zjedź w dół. W zakładzie Genetyki Sto¬ 
sowanej znajduje się pojemnik z masą chromosomo¬ 
wą. Czas na finał. Wprowadź chromosomy . No tak. 
Jeśli Jesteś słaby z biologii, sprawdź rodzaj chromoso¬ 
mów w Instrukcji załączonej do gry. 


POZIOM I 

Wjedź na poziom pierwszy Znowu krzyknij do okien 
ka 1 okaz przepustkę strażniczce W środku pocałuj Ją, 
a ona zemdleje. Otwórz sejf i przeczytaj klucz do hasła 
Na podłodze przy schodach znajdziesz litery do hasła. 
Zadzwoń do okienka i podaj hasło (PARTENOGENE 
ZA). Teraz wystarczy Już tylko wyjść po drabince. 



rw r»» • 



Pozostało ml tylko pogratulować Cl ukończenia gry 


BRAWO ALBERCIK! 


MAX 
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ODBIOR SYGNAŁÓW 
TELEKOPIOWYCH 




W kolejnym artykule o niekonwencjonalnych zasto¬ 
sowaniach ATARI będzie o tym. Jak za pomocą poczci¬ 
wej "Oslemsetkl" udało ml się odebrać radiową trans¬ 
misję telekopiową. Dla mniej wtajemniczonych - Jest to 
przekazywanie drogą radiową informacji zawierają¬ 
cych obraz. Mozę to być albo FACS1MILE - przekaz ob¬ 
razów bez półtonów, przede wszystkim map meteorolo¬ 
gicznych, albo TELEFOTO - tu przenosi się obraz 
z półtonami, np. fotografie wykorzystywane przez agen¬ 
cje prasowe. 

Skoro zabieramy się do odbierania w domu obrazów 
z radia, dobrze wiedzieć co do nas z "eteru" przylatuje. 
Analiza wysyłanych obrazów odbywa się podobnie Jak 
to ma miejsce w telewizji - tj wysyłane są one linia po 
linii W urządzeniach tradycyjnych obraz przeznaczony 
do "wysyłki" zakłada się na walec, który wiruje przed 
powoli przesuwającą się fotokomorką przetwarzającą 
zmiany stopnia zaczernienia obrazu na przebieg ele¬ 
ktryczny. Każdy obrót to Jedna wysłana linia obrazu. 
Walec wiruje ze stałą szybkością, najczęściej 60, 90 
lub 120 obr/min, co odpowiada czasom trwania Jednej 
linii odpowiednio 1. 0,666... lub 0,5 sekundy. Cały 
przekaz trwa zatem kilka minut. 

Przebieg elektryczny odpowiadający rozkładowi za¬ 
czernienia obrazu moduluje falę nośną nadajnika. Na 
wyjściu odbiornika dostrojonego do tej fali otrzymamy 
zatem przebieg, który można z powrotem przetworzyć 
na obraz na podobnym, wirującym z identyczną szyb¬ 
kością walcu Wiele rozwiązań wymyślono do realizacji 
tego zadania, począwszy od sterowanych źródeł światła 
działających na papier światłoczuły, 
przez urządzenia z rylcami wydrapują 
cyml ślad w specjalnym podłożu az po 
elektrody działające bezpośrednio prą 
dem elektrycznym na papier nasycony 
substancją ulegającą zaczernieniu 
w wyniku elektrolizy. Potraktujmy to 
Jako ciekawostki z archiwum techniki, 
bo nas będzie interesować zastąpienie 
układów elektromechanicznych kom¬ 
puterem, a ew. kopię na papierze mo¬ 
żemy sobie uwiecznić na drukarce. 

Podobnie Jak opisywana wcześniej 
J3] transmisja RTTY, również przekaz 
nieruchomych obrazów drogą radiową 
na falach długich i krótkich wydaje się 
trącić myszką A jednak w epoce tele¬ 


uprzej mości 
bardziej średniej 
obecnie telefax biurowy. 


faksów, modemów i światłowodów, te 
bardzo tradycyjne sposoby przekazu 
Informacji mają się nieźle Są w świę¬ 
cie dziesiątki stacji radiowych nadają¬ 
cych mapy meteorologiczne, w tym 
również retransmisje obrazów sateli¬ 
tarnych. Jedna z najważniejszych sta¬ 
cji tego typu w Europie - w OfTcnbach 
koło Frankfurtu n/M nadaje ok 30 
map w ciągu doby |2| Wszystkie wię¬ 
ksze stacje meteo posiadają sprzęt do 
odbioru takich map, chociaż to co wi¬ 
działem jeszcze parę lat temu dzięki 
pana z miejscowej stacji, przypominało 
wielkości magiel, nlz tak pospolity 


W literaturze [1J, [2] pojawiają się opisy przystawek 
do dużych komputerów (klasy Atarl ST, czy IBM/PC) 
umożliwiających dekodowanie wszystkich rodzajów 
emisji radiowych, w tym także mniej lub bardziej ama 
torski odbiór map pogody 1 Innych obrazów. W swej 
Istocie są takie przystawki samodzielnymi systemami 
mikrokomputerowymi 1 wykonują całą "czarną robotę" 
z obróbką sygnału 

Skoro podstawową pracę wykonuje tam mikrokom¬ 
puter Jednoukładowy, a nie wielka maszyna 16-bitowa, 
to małe a sprytne Atarl tez sobie poradzi. Taki wniosek 
okazał się słuszny, chociaż trzeba było realnie podejść 
do granic możliwości technicznych komputerka. Cho¬ 
dzi tu przede wszystkim o możliwości graficzne - w try¬ 
bie graficznym 8 mamy do dyspozycji 192 linie po 320 
punktów, podczas gdy systemy 'prawdziwe" pracują 
przy rozdzlelczosciaeh ok. 3-krotnle wyższych. Nie 
zmienia to faktu, że rezultaty na ekranie naszego moni¬ 
tora także potrafią być fascynujące. Można uzyskać zu¬ 
pełnie wyraźne zarysy map meteorologicznych. Odbiór 
telefoto tez Jest możliwy, choć brak Jest półtonów. 
W trakcie odbierania obrazu też nie Jest nudno, po¬ 
wstaje on bowiem na naszych oczach, linia po linii. 

Sygnał z odbiornika radiowego trzeba przetworzyć 
na postać strawną dla komputera, do tego zaś zupełnie 
dobrze się nadaje układ opisywany w |3] Ze względu 
na potrzebę przenoszenia krótszych impulsów, nlz to 
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V 




było w zastosowaniu pierwotnym, kondensator Cli 
powinien mieć wartość ok 1 - 2,2nF 


Jakość odebranego obrazu jest zalezna od wielu 
czynników. Siła odbieranego sygnału musi być dostate¬ 
czna, ew. szumy widoczne są bowiem na obrazku w po¬ 
staci znanego z TV "śniegu” Częstotliwość dostrojenia 
odbiornika musi być doskonale stabilna Na falach 
krótkich niektóre stacje mimo, że silnie odbierane, da¬ 
ją wyniki marne, gdyż mimo dobrej stabilności odbior¬ 
nika ich częstotliwość waha się nieprzyzwoicie w wynl 
ku harców wyczynianych na niebiosach przez jonosfe- 
rę. Najłatwiej o stabilność na częstotliwościach lezą¬ 
cych poniżej fal długich - pracują tam stacje nadające 
zarowno RTTY Jak 1 nasze obrazki Wszystko to staje 
się dostępne po niewielkim przestrojeniu - chodzi 
o częstotliwości 110, 130, 140kHz. Problemem fal dłu 
gich jest ogromnie zanieczyszczone środowisko ele¬ 
ktromagnetyczne - przyczyniają się do tego również 
monitory naszych komputerów, o czym trzeba pamię¬ 
tać ustawiając odbiornik. 


W swej istocie rola, jaką ma do spełnienia komputer, 
polega na przetworzeniu przebiegu elektrycznego na 
obraz Z odbiornika otrzymuje się przebieg elektryczny 
przyjmujący tylko 2 stany odpowiadające czerni i bieli. 
Zakładamy, że pracować będziemy z maksymalną roz- 
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± REM łCKMM)tMMKK>0(W)0<M)0t)łMK)0(KMMMMM)(Kłt 

2 REM WPROGRAM DO ODBIORU F AC SIMILE * 

3 REM * 11.1992 * 

4 REM * HitOld PPOkOpOWiCZ * 

5 REM łHBHHHHHHHHHHHHHHHHBHHHHHHHHHHHt 
18 FOR A=1536 TO 1770:READ D:POKE A,D: 
NEKT A 

20 C LR :DXM TK$(8J f G$(6) ,L$ C21 :10 = 848 
30 GOSU8 580:00=1 
40 GOSU6 250 

50 GRAPHICS 8+16:COLOR 1 
6© POKE 709,15:POKE 710,0 
70 Q = USR C15 36,TE Ml,TEM2,TEM3,TEH4J 
80 G05UB 760 

90 SOUND 1,99,10,10:SOUND 2,98,10,10 

lee for n=i to ee:NEKT m 

11© SOUND 1,99,±0,O:SOUND 2,98,10,0 
120 CLOSE ttliOPEN t*l , 4 , O , "K 5 ■■ 

130 GET ttl.S 

14© IF CHRS(5)="T n THEN GOSUB 170 
150 GOSUB 880:GOTO 40 

160 REM WHHHHHHHHHBHHHHHHHHBHHHHHHI 
170 REM HYPIS GRAFIKI 8 NA DYSK 
180 CLOSE *tl:OPEN ttl, 8,128, "D : A234SO . F 
AC” 

190 L=L*i:lF L > 99 THEN L = 0 
200 POKE 10*2,11:POKE 10+8,255 
210 POKE 10 + 9, 29:POKE 10 + 4,PEEK (881 
220 POKE 10 + 5,PEEK C891 :I“U5R(17653 
230 CLOSE ttl : RETURN 

240 REM MMMMMMMMMMMMMMMKMKMMMMMMMMM 

250 REM NADAHANIE PARAMETROM 

260 GRAPHI CS OiPOKE 7Q9,ll:POKE 710, 0 


WYBIERZ 

TEMPO ODBIORU F AC 51 MILE 


1-> 

2 -> 

3 -> 

SPC-> 


60 linii/Hin 
90 1 inii/Min 

120 linii^Min 
■ty i e ile jest 
Ca jest 3 


wybierz 1 / 2 / 3 /spc 
naciskaj > ST ART < 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
412 

420 _ 

430 POSITION 24 , 10 :? CO:COT=CO 
440 CLOSE ttlSOPEN ttl, 4 ,O,"K:" 

450 GET ttl,CO!CO=CO“ 4 B 
460 IF CO =“16 THEN CO=COT 

470 IF CO> 3 OR CO<l THEN GOTO 440 SRETU 

RN 

480 ON CO GOTO 540 , 550 , 56 © 

490 RETURN 

500 REM M* MMMMMMMMMMMMMMMMMMMMMMMMM 
510 REM TEM 3 HARTOSCI OD 1 DO 17 
520 REM TEM 4 —> TYLKO 236 , 157 , 14 , 30,161 
530 REM KOLEJNO OD 4 DO 8 CYKLI ZEGARA 
540 TEM 1 = 255 :TEM 2 = 255 :TEM 3 = 243 :TEM 4=23 

6 :RETURN 

550 TEM 1 = 255 :TEM 2 = 226 :TEM 3 = 15 :TEM 4=236 

■ AETU RM 

560 TEMlr 255 •TEM 2 = 93 :TEM 3 =i 9 :TEM 4 = 3 e R 
ETURN 

570 REM MMMMKMMKKKKMMKMMMMWMKMIOntMK 
580 REM NAZW OBRAZKA 
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8 + 03 


NAZW OBRAZKA" 
5 znaków" 


JK BSe NEKT o 

va B60 NEKT :.IiTKS~GS 

ZS 870 RETURN 

VT 880 REH IHHHHHHHHHHHHHHHHHHHHt 

EK 890 DATA 10 i ,104,104,141,195,006,104,1 
04,141, 200,006, 184,104,141., 205,006, 104 
.... 104,141,209 

ME 900 DATA 006,173,031,206,201,006,208,2 
»’■ 49,120.165,008,141,061,B86,141,074,006 

KS * »141,226,006 

PH 910 DATA 165,089,141,062,006,141,875,0 
5*: 06, 169,192,141, 228,006,16 9, 040,141,227 

,1 06,162,008 

SK 920 DATA 173,080,129,029,217,006,172,8 
16,208,248,888,208,000.141 080,129,076 
, 087, 00-: , 141 

MZ 930 DATA 255,255,7.34,234,076,087,006,0 
32,194,006,702,208,223,032,164,006,206 
.227,006,2 08 

JO 940 DATA 213.173,031,208,240,056,169 O 
40,141 227,006,162,008.173.080.129,029 
,217,1,06,172 

611 950 DATA 016,208,240,088,208,000,141,2 

55,255,876,138,006,141,255,255,076,138 
,006,032,194 

AE 96C< DATA ,706,202,208,225,032,179,006,2 
06,227,006,208,215,173,031,208,240 005 
.206,228,006 

JC 970 DATA 208,147,088.096,238,061,006,2 
38,074,006,700.006,238.062 006,238,075 
006 096,238 

AY 980 DATA 2SS,255,238,226,006,208,006,2 
38.255 255,238.255,255 096.160.255,032 
,213,006,160 

TE »9® DATA 100,032,213,006,160,008,032,2 
13,006 234,234,234.096„136,208,253,096 
,090.001,002 

UU 1800 DOTO 004 008 016.032,064,128,000, 
080,000,184,162,816 076,886,221 



dzlelczością grafiki 8+16, gdzie do dvspozvc|i mamv 
tez 2 kolory - czarny 1 biały 


Procedura odbioru została napisana w języku maszy¬ 
nowym i mieści się na stronie 6 pamięci Zasada od¬ 
bioru nie jest szczególnie złozona - w równych odcin¬ 
kach czasu (odpowiadających 1/320 czasu rysowania 
linii) testowane jest wejście przycisku Joysticka 1. Wy¬ 
nik testu umieszczany jest na ekranie w postaci jedne- 
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go pixelka w grafice 8+16 (czarnego lub białego) 

Punkt po punkcie, linia po linii kreślony jest cały ob 
raz, po czym następuje wyjście do Basica. Na każdy 
obraz przypada znacznie więcej linii, niz to jest w sta¬ 
nie pomieścić ekran Atari Chcąc nieco poprawić tę 
niedogodność zdecydowałem, ze na ekranie rysować 
się będzie co druga linia zaś co druga będzie rysowana 
na niby", żeby nie naruszyć subtelnych zależności cza 
sowych w programie. 

Obraz w grafice 8+16 to wprawdzie 320x192 punkty, 
ale tylko 40x192 adresy w pamięci Najmniejsza zatem 
pętelka programu to stawianie kropek” wewnątrz jedne¬ 
go bajtu - trzeba było sobie jakoś radzić bez Basicowej 
instrukcji PLOT Pewną istotną subtelnością w tej części 
programu jest to, że w przypadku kropki czarne) nie wy¬ 
starczy po prostu Jej nie postawie Trzeba bowiem wyko¬ 
nać w obu przypadkach sekwencję rozkazów procesora 
o takie) samej liczbie cykli - w przeciwnym razie szyb¬ 
kość programu byłaby inna dla elementów czarnych i bia¬ 
łych. Następny etap, to przejście do kolejnego bajtu, 
a więc zmiana adresu. Zamiast używania rejestrów inde¬ 
ksujących X i Y zastosowałem technikę modyfikowania 
adresów przez sam program. Po narysowaniu na ekranie 
całej linii aktywnej, następuje rysowanie linii "sztucznej" 
Na końcu każdej z nich sprawdzany Jest stan przycisków 
konsoli, aby umożliwić wyjście do Basica przed naryso¬ 
waniem całego obrazu. 

Po uruchomieniu program przez parę chwil przeła¬ 
dowuje kod maszynowy z linii DATA na szóstą stronę 
pamięci a następnie prosi o podanie nazwy ohrazka. 
Jaki będzie rysowany na ekranie. Nazwa ta zostanie 
wpisana w lewym górnym rogu po odebraniu wszy¬ 
stkich linii, będzie to tez nazwa zbioru zapisanego 
w razie życzenia na dyskietce. Z tego względu trzeba 
przestrzegać nie tylko wymogu długości nazwy, ale i za¬ 
sad narzucanych przez DOS. Po podaniu nazwy i wciś¬ 
nięciu RETURN program dokonuje syntezy wiersza 
180 służącego do ew zapisu zbioru na dysk. a nastę¬ 
pnie prosi o podanie szybkości odbieranej transmisji 
Jako wyjściowa ustawiana Jest wartość 60 linil/mln Po 
każdym zgłoszeniu się tej planszy można albo podać li- 


W0 1 REM ****★*■*■*■*■**★******■**•*•**■**■**•*■*■★ 

2 REM * SCROLL GRAFIKI 8 * 

GM 3 REM * Witold Prokopowicz * 
WRi 4 REM *■***■*■*■*■*■*■*■*■**■*■****■★★★★*•****•*★* 

FD 10 FOR A=1536 TO 1661:READ D:P0KE A,D: 
I +•••« INEXT A 

CB 20 DIM F$(20),COTO$(9):10=848 
m 30 REM WYDRUK KATALOGU DYSKU 
IM 40 REM TYLKO ZBIOROW *.FAC 
OM 50 2 CHR${125):TRAP 70:CLOSE #1:0PEN # 
1,6,0,"Dr*.FAC" 


FŁ 
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60 IHPUT #1,F$:? F$,:INPUT #1,F$:? F$: 
GOTO 60 

70 ! i? - PODAJ NAZWĘ PLIKU DO ODCZYTU 
"(BEZ ROZSZERZENIA)":INPUT COTO$ 
100 F$="D:":F$(3)=C0T0$:F$(LEN(F$)+1)= 
”.FAC" 

140 K=4:GOSUB 310 

150 GRAPHICS 8+16:COLOR 1 

160 POKE 709,15:POKE 710,0 

170 POKE 10+2,7:POKE 10+8,0:POKE 10+9, 

PEEKJ 742 )—PEEK(145):P0KE 10+4,PEEK{88) 

:P0KE 10+5,PEEK(89) 

180 S=USR(1656)rCLOEE #1 
190 CLOSE #1:OPEN #1,4,0,"K:" 

200 GET #1,S 


THEN S=USR(1536) 

THEN GOTO 250 
THEN GOTO 50 


210 IF CHR${S)="+" 

220 IF CHR$(S)="Z" 

230 IF CHR${S)="N" 

240 GOTO 190 

250 K=8:GOSUB 320 

260 POKE 10+2,11: POKE 10+8,255 

270 POKE 10+9,29:POKE 10+4,PEEK{ 88 ) 

280 POKE 10+5 ,PEEK( 89 ):I=USR( 1656 ) 

290 CLOSE #1:GOTO 50 

300 REM *************************** 

310 TRAP 50 

320 CLOSE #1:OPEN #1,K,128,F$ 

330 RETURN 

340 DATA 104,165,088,141,035,006,141,0 
50,006,141,053,006,141,067,006,165,089 
,141,036,006 

350 DATA 141,051,006,141,054,006,141,0 

68,006,169 

360 DATA 192 

370 DATA 141,109,006,173,255,255,141,1 
07,006 

380 DATA 169,040.,141,108,006,162,000,1 
60,001,185,255,255,157,255,255,232,200 
,206,108,006 

390 DATA 208,243,173,107,006,202,157,2 
55,255,024,173,035,006,105,040,141,035 
,006,141,050 

400 DATA 006,141,053,006,141,067,006,1 
44 ,012 ,238,036,006,238,051,006,238,034 
,006,238,068 

410 DATA 006,206,109,006,208,184,096,0 

00 , 000,000 

420 DATA 006,206,109,006,208,184,096,0 

00 , 000,000 

430 DATA 104,162,016,076,086,228 


czbę 1-3 albo nacisnąć przycisk spacji zachowując 
szybkosc aktualnie ustawioną w programie. 

Po wprowadzeniu szybkości transmisji obraz znika, 
komputer przechodzi do trybu graficznego 241 oczeku¬ 
je na wciśnięcie przycisku START Transmisja teleko¬ 
piowa jest asynchroniczna, a więc moment wciśnięcia 
określa położenie obrazu na ekranie - tu ntc nie zastą¬ 
pi odrobiny doświadczenia. 
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Rysowanie obrazu na ekranie można przerwać przed 
czasem, naciskając jednocześnie START+SE- 
LECT+OPTION - trzeba odczekać do końca kreślonej 
właśnie linii. 

Po zakończeniu rysowania obrazu (zarowno samo 
czynnym jak i wymuszonym) następuje wpisanie poda¬ 
nej wcześnie] nazwy na ekranie (lewy górny rog), rozle 
ga się sygnał akustyczny i program oczekuje naszej de¬ 
cyzji, czy obrazek zapisać na dyskietkę Jeśli widzi się 
nam, ze jest tego wart, naciskamy "T” Jeśli zaś nacie 
szył oko i nie będzie rejestrowany (każdy obrazek to 62 
sektory na dyskietce), wystarczy nacisnąć inny klawisz 
i program wraca do opisywanej juz planszy z wyborem 
szybkości transmisji. 

Program włącza do nazwy numer kolejny obrazka 
o danej nazwie, co ułatwia wykonywanie całych serii 
zapisów na dysku bez potrzeby modyfikowania nazwy 
"na piechotę" Numer zwiększa się po wykonaniu zapi 
su na dyskietce. 

W wyniku braku możliwości synchronicznego rozpo¬ 
częcia odbioru obrazu bardzo często jest on przesunię¬ 
ty względem ekranu Wygląda to tak, jakby płaski obra 
zek skleić w kształt cylindra, a następnie przędąc go 
wzdłuz zupełnie przypadkowej Unii. 

Z takim zniekształceniem można sobie poradzie ła 
two z pomocą niezbyl złożonego programu, który został 
tu przedstawiony Jego sercem jest napisana w języku 
maszynowym procedura przewijająca w lewo obraz 
o 1 bajt, t J. o 8 pixclkow Jako ze cylinder jest tworem 
okrągłym, nie ma potrzeby przewijania w obie strony 
Procedurę można wykorzystywać do rozmaitych innych 
celów, np w trybie 0 (tekstowym), trzeba wówczas od 
powiednio zmniejszyć Uczbę w linii 360 Grafika 8+16 
ma 192 linie, a np grafika 0 tylko 24 

Po uruchomieniu i przeładowaniu części maszynowej 
na stronę 6 pamięci program odczytuje katalog aktualnie 
włożonej do napędu Dl " dyskietki wyświetlając nazwy 
wszystkich zbiorow * FAC. Teraz program oczekuje na 
wpisanie jednej z tych nazw (bez rozszerzenia) i wczytuje 
obraz na ekran w grafice 8 Przewijanie obrazu w lewo 
uzyskuje się naciskając przycisk "+" Obrazek po popra¬ 
wkach można zapisać na dyskietkę pod niezmienioną na¬ 
zwą po naciśnięciu "Z" Jeżeli nie trzeba nic zmieniać we 
wczytanym obrazku, wystarczy nacisnąć 'N" W ten spo¬ 
sób można programu używać również do przeglądania 
zbiorow obrazków w GR 8 bez zmieniania ich treści. 


Witold Prokopowicz 


1 Pernsteiner P , Funk telefax — Bilduebertragung mit 
komfort Funkschau nr 23/1988, str 68 

2 Wetterbilder im Arbeitszimmer, Funkschau nr 
19/1991 str 124 

3 Prokopowicz W , Atari inaczej - Odbiór Transmisji 
RTTY Tajemnice Atari nr 8/91 str 11 

4 Materiały informacyjne SONY (odbiornik CRF Y2.1) 
i AOR (WX2000 - Radio Facsimile Terminal 



JetCopy służy do kopiowania plików dyskowych 
Programów tego typu jest wprawdzie całe mnostwo 
lecz wymienię tu kilka zalet wyróżniających go spo 
srod innych Pierwszą z nich jest możliwość kopio¬ 
wania dowolnej długości plików (długie programy 
są dzielone na części) czego nie oferuje większość 
znanych mi programów Przydatna jest również 
możliwość odczytania nazwy pliku z dowolnego 
miejsca ekranu - po wczytaniu JetCopy ukazuje 
podłużne okienko, przez które widać zawartość 
ekranu. Okienko można przesuwać za pomocą kia 
wiszy kursora (z CONTROL), co umożliwia wybór 
pliku z wyświetlonego wcześniej na ekranie katalo¬ 
gu dysku Nazwę pliku można również podać 
w slandardowy sposob wpisując ją bezpośrednio 
z klawiatury Po odczytaniu pliku źródłowego Jet¬ 
Copy przystąpi do zapisu i o ile kopiowany plik 
zmieścił się w całości, będzie zapisywał kolejne 
kopie az do momentu naciśnięcia klawisza ESC. 
Ten sam klawisz naciśnięty podczas wprowadza¬ 
nia nazwy pliku zrodłowego (SOURCE) powoduje 
opuszczenie programu 1 powrot do DOS u ESC 
podczas wprowadzania nazwy pliku docelowego 
(TARGET) przerywa tę operację i pozwala na zmia¬ 
nę nazw)' pliku zrodłowego Przed przystąpieniem 
do odczytu lub zapisu program czeka na naciśnię¬ 
cie dowolnego klawisza za wyjątkiem ESC 
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REM *- i 

REM : JetCopy 

REM : autor: Dariusz Zolna 
REM : (c) 1992 Tajemnice ATARI 

REM *- 1 

DATA ffff00804c85a655p88e2485a5 
DATA 5438e9051002a9008d25852056 
DATA 84ad2485186901ae2585e820e8 
DATA 84a00bb987859lb08810f8a9ff 
DATA 8dfC02a614acfC02c8d01ba414 
DATA c414f0fca514290fd00ba00bbl 
DATA b04 9809lb08810f7e414d0dfa9 
DATA ff8dfc02200a84a20520b983a9 
DATA 008d2785adl88518690285b6ad 
DATA 1985690085b720bc8090034c04 
DATA 8420de84a00bblb0994d8588l0 
DATA f8a20b20b98320de84a5b085b6 
DATA a5bl85b720e381a9008d2785ad 
DATA la8518690285b6adlb85690085 
DATA b720bc8090034c54804cef8120 
DATA de84a00bblb0297fcc2785d002 
DATA 09809lb08810f020cb83ad2785 
DATA £014ad2685c97ed00dce278520 
DATA de84ac2785a98091b0ad2685c9 
DATA Icd00ead2585f00920a884ce25 
DATA 85205684ad2685c91dd010ad25 
DATA 85c915b00920a884ee25852056 
DATA 84ad2685c91ed019ad2785f006 
DATA ce27854c3981ad2485f00920a8 
DATA 84ce2485205684ad2685c91fd0 
DATA Idad2785c90bb006ee27854c5d 
DATA 81ad2485c91ab00920a884ee24 
DATA 85205684ad2785c90bb016ad26 
DATA 85c920900fc960b00bac278520 
DATA 438491b0ee2785ad2685c91bd0 
DATA 023860c99bf0034cbc8020de84 
DATA a00bblb0297£9lb08810f7a0ff 
DATA c8c008b005blb0f0f788a2ffe8 
DATA c8blb0202a84c920f00cc92ef0 
DATA 089d4d85e00890ea88a92e9d4d 
DATA 85e8c8blb0f0fb98a000200385 
DATA a000blb0202a849d4d85e8c8c0 
DATA 0390f2a99b9d4d85a00bb94d85 
DATA 9lb68810f81860a005a9d2997d 
DATA 858810fa20a88420568420de84 
DATA a9008d28858d2985a9ff8d2c85 
DATA a00bb99f859lb08810f820cb83 
DATA C91bd0034c5480a00fb92d8599 
DATA 4d85S810f7a210209383a210a9 
DATA 04207c831003202783a00bb99f 
DATA 859lb08810f8ad2885f01420cb 
DATA 83c91bd00da210209383a22020 
DATA 93834c5480a9008d2a85ade602 
DATA 38ed2185a8888c2b85a210a907 
DATA 209b83100cc088f003202783a9 
DATA 018d2985ee2c85a210bd48038d 
DATA 2a85bd49038d2b85ad2985f003 
DATA 209383a00bb9ab8591b08810f8 
DATA 20cb83c91bd00da210209383a2 
DATA 202093834c5480ad2885d026a0 
DATA 0fb93c85994d858810f7a220a9 
DATA 08207c83100d202783ad2685c9 
DATA lbd0bf4c5480a9018d2885a220 
DATA a90b209b83100a202783ad2685 
DATA c9Ibd0edad2985d0034c3f82ad 
DATA 2c85d010a220209383a9008d28 
DATA 85200a844cal82a210209383a2 
DATA 202093834c54808a4898482093 
DATA 836885d4a90085d520aad920e6 
DATA d8a200ad8005c930d001e8a000 
DATA bd800508204384098099bf85e8 


FE 

1670 

DATA 

CM 

1680 

DATA 

AE. 

1690 

DATA 

RF 

1700 

DATA 

PQ 

1710 

DATA 

RH 

1720 

DATA 

AF 

1730 

DATA 

US 

1740 

DATA 

FA 

1750 

DATA 

SL 

1760 

DATA 

YR 

1770 

DATA 

KJ 

1780 

DATA 

MF 

1790 

DATA 

BI 

1800 

DATA 

WJ 

1810 

DATA 

SU 

1820 

DATA 

JF 

1830 

DATA 

MZ 

1840 

DATA 

CO 

1850 

DATA 

HK 

1860 

DATA 

EH 

1870 

DATA 

JC 

1880 

DATA 

UU 

1890 

DATA 

GM 

1900 

DATA 

NF 

1910 

DATA 

MF 

1920 

DATA 

CY 

1930 

DATA 

EW 

1940 

DATA 

GD 

1950 

DATA 

RC 

1960 

DATA 

MW 

1970 

DATA 

WJ 

1980 

DATA 

PZ 

1990 

DATA 

QJ 

2000 

DATA 

XP 

2010 

DATA 

FP 

2020 

DATA 

PG 

2030 

DATA 

EC 

2040 

DATA 

FM 

2050 

DATA 

2H 

2060 

DATA 

CY 

2070 

DATA 

ZA 

2080 

DATA 

OH 

2090 

DATA 

IY 

2100 

DATA 

HS 

2110 

DATA 

TM 

2120 

DATA 

KE 

2130 

DATA 

FS 

2140 

DATA 

NE 

2150 

DATA 

RG 

2160 

DATA 

GY 

2170 

DATA 

BH 

2180 

DATA 

CM 

2190 

DATA 

CE 

2200 

DATA 

DC 

2210 

DATA 

XX 

2220 

DATA 

WL 

2230 

DATA 

sv 

2240 

DATA 

YF 

2250 

DATA 

YK 

2260 

DATA 

YX 

2270 

DATA 

GB 

2280 

DATA 


C82810efa00bb9b78591b08810 
f8a00a9848200a8468a88810f6 
20cb8368c910f0016068684c54 
809d4a03a9039d4203adlc859d 
4403adld859d45034c56e4a90c 
9d42034c56e49d4203ad20859d 
4403ad21859d4503ad2a859d48 
03ad2b859d49034c56e4a005bd 
9385997d85ca8810f620a8844c 
5684a230a9039d4203adle859d 
4403adlf859d4503a9049d4a03 
2056e4a9059d4203a9009d4803 
9d49032056e448a90c9d420320 
56e4688d26856020a8846c0a00 
a046a9088dlfd0a2058d0ad4ca 
10faa9008dlfd0a2058d0ad4ca 
10fa8810e36008297fr-940b00c 
69204c3d84c960b00338e94028 
100209806008297tc960b006e9 
lfb0026960281002098060ad24 
85ae258520e884adl48585b2ad 
158585b3adl68585b4adl78585 
b5a20ba034blb09d6c8588cal0 
f7a202a00dblb09Ib4blb291b0 
8810f5a928a000200385a90ea0 
02200385a90ea004200385cal0 
db60a514c514f0fcad2485ae25 
8520e884adl68585b2adl78585 
b3a202a00dblb29lb08810f9a9 
2 8a000200385 a90ea002 200385 
Cal0e660ad2485186901ae2585 
e848a55885b0a55985bl68a000 
200385cal00160a9282003854c 
f7841879b00099b000a90079bl 
0099bl0060005d85c3852d853c 
854d854b85ed85000000000000 
0000000000443a202020202020 
2020202020209b443a20202020 
20202020202020209b4b3a5d85 
c285dld280aae5f480a3afb0b9 
80d2 c5 fC000000000000000000 
000000fcdad2d2d2 8080808080 
80d2d2d2c322791a0000240e3a 
6f6c6e61b3afb5b2a3a5b4alb2 
a7a5b4b2e5ele480f3eff5f2e3 
e580b7f2e9f4e580f4elf2e7e5 
£480a5b2b2afb2809a80909080 
ed85a586a90085cfa90085d2a9 
8085d3ade70285d48de002ade8 
0285d58del0238a5d2e5d485d0 
a5d3e5d585dla000f0033866cf 
a5d2c9eda5d3e98590036ce702 
24cf70613025bld291d4209986 
aaf0e0c920f017c940f0dbc960 
f0d7290dc908f0dl90418a291f 
c909f03abld2c8c900bld288e9 
809012bld2c8c9eebld288e985 
b006a5d0a6dl900724cf30a3a9 
00aa85d686d738bld2e5d691d4 
209986bld2e5d74c9186bld291 
d42099864cld86e6d2d002e6d3 
e6d4d002e6d560e002el02ed85 




Dariusz Zołnc 
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Wielu czytelników w swoich li¬ 
stach pyta po czym rozpoznać im 
plementację Extended flg FORTH 
Nie jest to takie proste, gdyż wiele 
wersji tej implementacji ma zmie¬ 
niony nagłówek Sam nie jestem 
pewien, czy wersja, którą posia¬ 
dam, nie zastała przez kogoś prze¬ 
robiona, Po wczytaniu implementa¬ 
cji, o której wspomniałem, pojawia 
się napis: flg FORTH 1.1. Mam 
nadzieję, że nagłówek ten jest au¬ 
tentyczny. Najczęściej spotykaną 
wersją na polskim "rynku" jest 
ATARI VERSION OF ELCOMP 
FORTH. Jest to najgorsza imple¬ 
mentacja Języka FORTH na ATARI 
jaką znam. Przy pierwszych kro¬ 
kach w nauce języka, wersja ta bę¬ 
dzie na pewno lepsza od zwykłej 
kartki papieru. Implementacja Ex 
tended fig FORTH została wydana 
w wersji dyskowej. Na dysku tym 
znajdują się także dwa Edytory, 
dwa Assemblery oraz ciekawe sło 
wa Języka FORTH - wszystko to 
w wersji źródłowej. Tekst źródłowy 
zapisany Jest w blokach, które na 
zywamy ekranami. Jeden ekran 
składa się z 8 sektorów, czyli 1Kb 
danych. Aby przejrzeć spis treści 
ekranów, należy użyć słowa IN 
DEX Przed nim podajemy numer 
ekranu, od którego rozpoczynamy 
przeglądanie oraz numer ekranu 
końcowego. Przykład; 

16 36 INDEX 

Spowoduje wyświetlenie nazw 
ekranów od 16 do 36. Na dyskietce 
zawierającej język FORTH ekrany 
z programami źródłowymi zaczyna¬ 
ją się od numeru 17, a kończą na 
88 

Aby przejrzeć zawartość ekranu 
np numer 30, piszemy: 

30 list EHDIIC1 



Kompilacja danego ekranu nastą¬ 
pi po użyciu sekwencji: 

30 LOAD liMiUiia 

30 - to oczywiście w dalszym 
ciągu numer ekranu. 

Uwaga, należy uważać, aby roz- 
jDOczynać kompilację od pierwszego 
ekranu mającego taką samą na¬ 
zwę, jak następne. Dotyczy to bloku 
ekranów o tej samej nazwie 

Implementację Extended fig— 
FORTH można oczywiście prze¬ 
nieść z dysku na taśmę. W tym celu 
wczytujemy FORTHa z dysku, kom¬ 
pilujemy dowolne ekrany słowem 
LOAD, a następnie tak rozbudowa¬ 
ny język zapisujemy na kasę le sło¬ 
wem CSAVE, Należy jednak pamię¬ 
tać, że ciągle nie będziemy posiada¬ 


li możliwości zapisu wersji źródło¬ 
wej na kasetę. 

Wielu czytelników pyta, gdzie 
można kupić nieokrojoną wersję 
języka FORTH na kasecie lub dys¬ 
ku. Mam nadzieję, że uda się do¬ 
prowadzić do rozpowszechniania 
w Polsce implementacji Extended 
Flg-FORTH w sposób legalny. 
W przypadku zgody producenta tej 
implementacji, firma AVALON pod¬ 
jęłaby się tego zadania Byłoby to 
najlepsze wyjście z sytuaej , przy 
rosnącym zainteresowaniu tym Ję¬ 
zykiem. Gdy będę wiedział coś wię 
cej na ten temat poinformuję czy¬ 
telników "Tajemnic Atarf w Jednym 
z kolejnych odcinków tego cyklu. 

ODGAŁĘZIENIA 

WARUNKOWE 

W poprzednim odcinku z tego cy¬ 
klu nie zmieścił się opis słów wyko¬ 
nujących odgałęzienia (skoki) wa¬ 
runkowe. Zacznijmy od: 

/ IF ... ENDIF 

Stuktura ta wykonuje słowa za¬ 
warte między IF a ENDIF tylko wte¬ 
dy, gdy znacznik logiczny/znajdu¬ 
jący się na szczycie stosu ma war¬ 
tość prawdy, czyli jest różny od ze¬ 
ra. LJwaga; powyższa struktura mu- 
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si mleć swój początek (IF) oraz ko¬ 
niec (ENDIF) wewnątrz tego same 
go słowa Zamiast ENDIF można 
użyć słowa THEN. Inną, bardziej 
rozbudowaną odmianą odgałęzie¬ 
nia warunkowego jest ciąg słów: 

/ IF ... ELSE ... ENDIF 

Także teraz słowa między IF 
a ELSE będą wykonywane, gdy 
znacznik logiczny jest równy pra¬ 
wdzie. W przeciwnym wypadku bę¬ 
dą wykonywane słowa zawarte mię 
dzy ELSE a ENDIF 

WYPROWADZANIE 

ZNAKÓW 

Nie poznaliśmy jeszcze żadnego 
słowa umożliwiającego wyprowa¬ 
dzanie znaków na ekran Pier¬ 
wszym z nich będzie słowo EMIT 
Umożliwia ono wyświetlenie jedne¬ 
go znaku, ktorego kod znajduje się 
na szczycie stosu Przykład- 

65 EMIT l;m»l;KI 

Na ekranie pojawiła się litera 
o kodzie 65, czyli A. 

Słowo EMIT umożliwia także wy¬ 
korzystanie znaków specjalnych 
sterujących kursorem lub całym 

ekranem np. 

125 emit Enema 

Spowoduje wyczyszczenie ekra¬ 
nu. 

Aby wyświetlić dłuzszy ciąg zna¬ 
ków musimy poznać Inne słowa 
Podczas programowania często za¬ 
chodzi potrzeba wpisania ciągu 
znaków wewnątrz kompilowanego 
słowa Funkcję tę spełnia następu 
jąca para słów: oraz " Najlepiej 
poznamy Ich działanie na przykła 
dzle: 

: PISZ ." ALA MA KOTA” enema 

Sprawdźmy teraz działanie nowo 
zadeklarowanego słowa. 

PISZ lAUim 

Na ekranie pojawił się napis, któ 
ry został umieszczony między . ” 
a ". Należy pamiętać, aby zawsze 
zostawiać przyna|mnlej jedną spację 
po słowie ." - nie będzie ona wy¬ 
świetlana, jest jednak niezbędna 
do oddzielenia tego słowa od tekstu 


Powyższa struktura może Istnieć 
tylko wewnątrz zadeklarowanego 
słowa 

Standardowy zestaw słów języka 
FORTH posiada także słowa uła 
twlające formatowanie wydruku. 
Często używanym słowem tego typu 
jest CR - przenosi ono kursor do 
początku następnej linii Istnieją 
także dwa słowa zostawiające 
w odpowiednich miejscach spacje. 
Są to: SPACE 1 SPACES . Jak łatwo 
się domyśleć, pierwsze z nich zo¬ 
stawia jedną spację, natomiast 
w drugim przypadku Ilość spacji 
jest równa liczbie znajdującej się 
na szczycie stosu. Przykład. 

: PISZ2 CR ." ALA” 10 
SPACES .” OLA" ; GHEEI3 

i wykonujemy: 

pisz 2 enema 

W języku Atarl BASIC Istnieje 
bardzo pożyteczna Instrukcja POSI 
TION, nie Istnieje niestety Jej odpo 
wlednlk w języku FORTH Nie ma 
jednak z tym żadnych problemów, 
gdyż, jak wykazałem Juz nie raz, 
wszystkie niezbędne słowa może 
dorobić użytkownik Piszemy: 

: X! 85 ! ; BHIEE) 

: Y! 84 C! ; flłEH3 
: POS Y! X! ; EHgEffl 


Stworzyliśmy nowe słowo o na¬ 
zwie POS , będące wiernym odpo¬ 
wiednikiem instrukcji POSITON 
z Języka BASIC. Nie zadeklarowali 
śmy tego słowa od razu, lecz two¬ 
rząc najpierw oddzielne słowa X! 
i Y! . Słowa te można wykorzystać 
do wpisywania pozycji x 1 y kursora 
w sposób niezależny. Przykład 

: SUN 125 EMIT 4 10 POS 30_ 

4 DO I X! ALA" LOOP ; lil^T-ll 

Słowo to wykona następujące 
czynności- 125 EMIT - czyści 
ekran 4 10 POS - ustawi kursor na 
pozycji x=4 y= 10 

Słowa zawarte między DO a LO 
OP będą przesuwały napis ALA 
w prawo az do pozycji x-29 y=10. 
Uwaga, między . ", a ciągiem zna¬ 
ków ALA występują dwie spacje. 
Jeżeli chcemy zmniejszyć tempo 
przesuwania należy wykorzystać 
słowo PAUSE, znane nam z poprze¬ 
dniego odcinka tego cyklu 

Do wyprowadzania ciągu znaków 
na ekran służy także słowo TYPE 
Z jego pomocą można wyświetlić 
napis znajdujący się w dowolnym 
miejscu pamięci. Aby tego dokonać, 
należy wprowadzić na stos adres 
początku, a następnie liczbę okre¬ 
ślającą Ilość wyświetlanych zna¬ 
ków. Przykład: 
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7889 15 TYPE 

Po wykonaniu tej sekwencji poją 
wl się nagłówek, który ukazuje się 
zawsze po wczytaniu języka do 
komputera. Nastąpi to oczywiście 
tylko w przypadku gdy posiadamy 
wersję Extended fig FORTH, gdyż 
tylko ta implementacja posiada na¬ 
główek pod adresem 7889. Może¬ 
my więc użyć tego zapisu do okre¬ 
ślenia posiadanej wersji. 

WPROWADZANIE 

DANYCH 

Aby umożliwić komunikację 
z użytkownikiem, każdy język po¬ 
siada Instrukcje pozwalające wpro¬ 
wadzać różnorodne dane do pro¬ 
gramu Zacznijmy od najczęściej 
stosowanego urządzenia wprawa 
dzania, jakim jest klawiatura. Naj¬ 
prostszym słowem wykonującym to 
zadanie jest KEY Słowo to wpro 
wadza dowolny znak z klawiatury 
1 umieszcza jego kod ATASCII na 
stosie Zatrzymuje ono program do 
momentu, gdy znak zostanie poda¬ 
ny. Przykład: 

: KLA KEY DUP EMIT 

space . ; GHEECl 

Po wywołaniu słowa KLA kompu¬ 
ter będzie czekał na podanie znaku 
z klawiatury; gdy to nastąpi, wy 
śwletll podany znak oraz jego kod 

FORTH oferuje bardzo ciekawe 
słowo WORD - pełni ono bardzo 
ważną funkcję w tym języku Mozę 
być także wykorzystane przez użyt¬ 
kownika do różnych celów Aby 
zrozumieć Jego działanie posłużmy 
się przykładem, piszemy: 

32 WORD ATARI l.l=*l«lHi!l 

Zauważmy, że w słowniku Języka 

FORTO nie Istnieje słowo ATARI, 
a jednak ciała sekwencja została 
przyjęta bez zarzutu, gdyż pojawił 
się napis OK. Co się stało ? Słowo 
WORD powoduje przestawienie In¬ 
terpretacji w taki sposób, ze ciąg 
znaków występujących za tym sło¬ 
wem nie jest uznawany za słowo 
FORTHa. Nazwa ta Jest jednak 
zapamiętywana 1 przenoszona do 
pamięci ustalonej przez zmienną 
DP. Liczba występująca przed 
WORD to kod znaku, który Jest tra¬ 
ktowany jako znacznik kończący 


nazwę W naszym przypadku jest 
nim liczba 32, czyli kod spacji. Ist¬ 
nieje w języku FORTH słowo HE 
RE które daje wartość zmiennej 
DP na stos. 

HERE COUNT TYPE I.UIUdU 

Po wykonaniu tej sekwencji słów 
na ekranie została wyświetlona na 
zwa TYPE. Mimo ze nie użyliśmy 
słowa WORD w sposób Jawny. 
FORTH wykorzystał go do wprowa¬ 
dzenia poszczególnych nazw pod 
HERE, aby je wykonać. Jako ostat 
nia została wprowadzona nazwa 
TYPE, a następnie wyświetlona 
przez słowo TYPE Wyjaśnienia wy¬ 
maga nieznane nam słowo COUNT 
Jego zadanie polega na przygoto¬ 
waniu danych dla TYPE Nie wspo¬ 
mniałem Jeszcze o tym, że słowo 
WORD zapamiętuje podany ciąg 
znaków w specyficzny sposob 
przed nazwą zapisany zostaje jeden 
bajt określający jej długość Aby 
otrzymać dane dla TYPE nie musi 
my się troszczyć o podawanie dłu 
gości Słowo COUNT zamienia po¬ 
dany przed nim adres na adres 
pierwszego znaku ciągu i Jego dłu¬ 
gość. Zamiast tego słowa można by 
napisać następującą sekwencję: 

DUP 1 + SWAP C@ 

Należy pamiętać, że słowo WORD 
czyta ciąg znaków w momencie, gdy 
Jest wykonywane. Czytanie zaczyna 
się od miejsca, w którym znajduje 
się w danym momencie kursor czy 
tający. Spróbujmy zadeklarować 
nowe słowo zawierające WORD 

: PI 32 WORD HERE COUNT CR 
TYPE CR ; Gumna 

Widzimy ze podczas deklaracji 
nie występuje za słowem WORD 
żadna nowa nazwa. Wykonajmy: 

PI ATARI lii3i!LKJ 

Tym razem słowo PI przeczytało 
napis ATARI 1 wyświetliło go na 
ekranie. Stało się tak dlatego że po 
odczycie nazwy słowa PI Interpreter 
Języka FORTH umieścił swój kur 
sor czytający za tym słowem Od te¬ 
go tez miejsca rozpoczęło czytanie 
słowo WORD, umieszczone we 
wnątrz PI 

Roland Pantoła 


J£fl 



(patrz Mapa pamięci str 11-12) 

opt *100101 

*——- system ----- 
dosyec egu $0a 
poklask egu $10 
vtimrl equ $0210 
stickO egu $0278 
strig0 egu $0284 
audfł egu $d200 
kboode equ $d209 
stimer equ $d209 
irgen egu $d20e 
skstat egu $d20f 

frg egu 127 

org $600 

*-main *- 

main Ida <myint 
sta vtimrl 
Ida >myint 
sta vtimrl+l 
Ida 4 frg 
sta audfl 
Ida pokmsk 
ora ♦! 
sta pokmsk 
sta irgen 
sta stimer 
jmp (dosvec) 

*— -my pokey mterrupt 


myint txa 
pha 

jmove ldx 415 

Ida skstat 


and 4%00000100 

klawisz? 

bne jfire 

Ida kbcode 
ldx 43 

nie: dalej 

chkkey emp keytab,x 

tak: który? 

beg setjoy 
dex 

bpi chkkey 
bmi jfire 

setjoy Ida joytab,x 
tax 

jfire txa 

and 415 

znalazłem 

sta stick0 

Ida skstat 

zapisz 

and 4%00001000 

shift? 

bne myintx 

nie: koniec 

sta strig0 
myintx pla 
tax 
pla 
rti 

wyzeruj 



keytab dta b(14) 
dta b(15) 
dta b(6) 
dta b{7) 

klawisze 

joytab dta b(I4) 
dta b(13) 
dta b(11) 
dta b(7) 

org $2e0 
dta a(main) 

joystick 


end 


ustaw nowy 
wektor 
ustaw czest, 
pracy 


zezwolenie 
na przerw, 
startuj 1 
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Dzielenie 


Michał Kowalewski nadesłał program do dzielenia liczb 
z dużą (dowolną) dokładnością Podajemy dzielną dziel¬ 
nik 1 żądaną liczbę cyfr po przecinku w wyniku 

Ytf 1 INPUT X,Y,B:? INT(X/Y);".";:FOR A-l 
TO B: X- (X-INT{X/Y)*Y)*10:? INT(X/Y);:N 
EXT A: 


Ruch na ekranie 


KQ 


Program autorstwa Niny Jendrus pokazuje, ze na¬ 
wet bez przerwań i bez USR-ów można stworzyć zgrabne 
'demo" 

UY 1 DEG :GRAPHICS 8:POKE 752,l:COLOR 1:S 
-54276:POKE 709,0:D=32852:POKE 33018,7 
:POKE 33019,55:POKE 82,0:7 t? " P"; 

2 7 “ROGRAM RUCH ********* 

* * ":FOR I«0 TO 40:PLOT 280,53:DRAWTO 

39*SIN(9*I)+280,39*COS(9*1)+53:NEXT I 

3 FOR I»40 TO 70 STEP 0.1:POKE S,PEEK( 
20):POKE D,I:POKB S,PEEK(20):NEXT I:GO 
SUB 5 

4 FOR I-I TO 40 STEr -0.1:POKE S,255-P 
EEK(20):POKE D,I:POKE S,255-PEEK(20):N 
EXT I:GOSUB 5:GOTO 3 

5 FOR L-75 TO 0 STEP -0 5:SOUND 0,2,4, 
L:NEXT L:RETURN 


YN 


SJ 


m 


mm\ 



Tl 




Stanisław Drozda podzielił się z nami swym pomy¬ 
sł; ni na usprawnienie wprowadzania danych szesna¬ 
stkowych (w tej postaci są drukowane w TA programy 
maszynowe). Za miesiąc bardzo się Państwu len pro 
gram przyda! 

m 1 DIH A$(12):GRAPHICS 0:LIST :K-PEEK(8 
4)-1:FOR 1-2 TO 5:LOCATE I,K,X:A$(1-1) 
“CHR$(X):NEXT I 

2 NL«VAL(A$):NL« NL+10*(NL>1009)+2*(NL 
1008) 

3 POKE 675,0:POKE 676,8:AS»" REM DATA 
":ST-2*(NL1000)+10*(NL>1009):KP-8*(S 

T-2)+190*(ST—10) 

4 7 CHR$(125):7 :FOR I-NL TO NL+KP STB 
P ST:PA«1+5*(I>1009):KA-PA+4:7 I;A$(PA 
,KA):NEXT 1:7 "RUN"tPOSITION 0,0:END 

HW 1000 REM 


SZ 


JC 


XY 


Jeszcze raz Wielkanoc 




Przepraszamy K. Wychowałka za zgubienie w Jego 
programie, drukowanym w TA 3/92, ostatniego wier¬ 
sza który powinien wyglądać tak 

PD 5 7 L;"/";L+1;".0";V;".";A:GOTO 1 





Dziesbinowe 
szaleństwo 


kr 


Dzlesbłncrwe szaleńsfatf zatacza coraz szersze kręg). 
Niestety, wielu czytelników dało się opętać zgubną manią 
rywalizacji Nie wiedzieć czemu, gdy ktoś ogłosi, że potra¬ 
fi zjeść 50 pączków, zaraz znajdzie się dziesięciu, którzy 
mogą 51 Tylko umiar 1 rozsądek nie znajdują Jakoś szer¬ 
szego grona wielbicieli "Dzlesbln" z TA 7/91 przedstawiał 
SPOSOB konwersji liczb, pozwalający wyświetlać cyfry 
od lewej do prawej (typowa metoda, polegająca na reje¬ 
strowaniu kolejnych reszt z dzielenia, przynosi cyfry 
w odwrotnej kolejności). Propozycję skrótu nadesłaną 
przez R. La łasa (TA 2/92) wydrukowaliśmy Jako ciekawo¬ 
stkę, przykład, ze nawet w tak krótkin programie można 
Jeszcze coś uprościć. Ale przecież to ten sam program! 


Kochani! To zaczyna być nudne Wymyśkie coś orygi¬ 
nalnego Dziękuję serdecznie Piotrowi Jochymkowi 1 Rafa 
łowi Jaczyńsklemu za okaleczon wersje tego samego pro¬ 
gramu. Usunięcie możliwości wyboru rozmiaru liczby lub 


zamiana 2 n ‘ 1 aa mętne 2 n /2 to wą pllwej Jakości oslągnlę 


da. Czy to wszystko, na co Was stać? Gdzie byllsdc wtedy, 
gdy otnymywałem 15- linijkowe progi' my tego typu? 


Drugą liczną grupę stanowią programy maszynowe 
zaklęte w napisy z 'robaczków’ Ich autorzy przekonują 
mnie usilnie, że dokonali wspaniałego odk yela Oto 
przykład program nadesłany przez Sławomira Zlelln 
skiego (po lewej) w konfrontacji z moim algorytmem 
utrzymanym w tej samej poetyce (po prawej). 
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Myślę, że obejdzie się bez komentarza 


Redaktor 
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1. Wstęp. 

Chyba prawie każdy, kto przez jakiś czas pisał pro¬ 
gramy w BASIC-u, jest ciekawy, w jakiej postaci pro¬ 
gram taki Jest przechowywany w pamięci komputera, 
a następnie na taśmie lub dyskietce. Informacja o tym 
może nie tylko zaspokoić ciekawość programującego, 
ale także pomóc w pisaniu bardziej zwartych progra 
mów (zajmujących mniej pamięci), oraz w odzyskiwa¬ 
niu programów straconych (np. przez uszkodzenie se¬ 
ktora dyskietki). 


2. Wpisywanie programu. 

Program wpisywany z klawiatury składa się z po¬ 
szczególnych wierszy, opatrzonych numerem 1 zawiera¬ 
jących Jedną lub więcej Instrukcji. Wiersz wpisujemy 
jako ciąg znaków ATASCII. Naciśnięcie klawisza RE 
TURN powoduje, ze wpisany wiersz programu zostaje 
zapamiętany jako część programu, ale juz nie w posła 
cl kodów ATASCII, ale w postaci tzw półskompllowa- 
nej. W tej postaci wszystkie użyte nazwy 1 symbole fun¬ 
kcji. operatorów i Instrukcji zostają zamienione na jed- 
nobajtowe tzw tokeny W jednolity sposób zostają też 
zapamiętane użyte zmienne, liczby i teksty. W czasie pi¬ 
sania programu są tworzone tabele nazw zmiennych 
1 wartości zmiennych, a także uaktualniane są zawar¬ 



tości komórek zawierających adresy poszczególnych 
części programu. 

3. Adresy części programu. 

W osiemnastu kolejnych komórkach pamięci BASIC 
umieszcza adresy charakteryzujące program- 

128—129 ($80—81) ŁOMEM — początek pamięci 
dostępnej dla BASIC-a 
130—131 ($82—83) VNTP — początek tabeli 
nazw zmiennych 

132-133 ($84-85) VNTB - koniec tabeli 
nazw zmiennych 

134-135 ($86-87) WTP - początek tabeli 
wartości zmiennych 

136—137 ($88—89) STMTAB — początek właściwego 
programu 

138-139 ($8A—8B) STMCUR - początek bieżącego 
wiersza BASIC 

140-141 ($8C—8D) STARP - początek tabeli 
zmiennych indeksowanych 
(tekstów i tablic) 

142-143 ($8E-8F) RUNSTK - początek stosu dla 
instrukcji GOSUB i FOR/NEXT 
144-145 ($90-91) MEMTGP - koniec obszaru 
zajętego przez BASIC 

4. Tabela nazw zmiennych. 

Tuz za ŁOMEM Interpreter BASIC-a zostawia sobie 
jedną wolną stronę na bufor wydawniczy tokenów, 
a następnie rozpoczyna się tabela nazw zmiennych Są 
w niej umieszczane nazwy zmiennych w takiej kolejno¬ 
ści, w Jakiej pojawiały się przy pisaniu programu. Na¬ 
zwy zmiennych tekstowych jako ostatni znak mają $, 
a nazwy tablic pamiętane są do nawiasu otwierającego 
włącznie. 

Jeżeli mamy w pamięci dowolny program 
w BASIC-u, to możemy obejrzeć tabelę nazw zmien¬ 
nych np. w następujący sposób: 

FOR A=PEEK(130)+256*PEEK(131) TO PEEK(132)+ 
256*PEEK(133): ?CHR$(PEEK(A));:NEXT A 

Widzimy, że ostatni znak każdej zmiennej Jest w ne¬ 
gatywie, tzn. ma ustawiony najstarszy bit Np. Jeżeli 
w programie występują zmienne: A, B, Cl, WILK, KO- 
ZA$, KAPUSTA(1,1), to tabela wygląda następująco. 

QHcQHiL[3KDzagKaPUSTaD 


5. Tabela wartości zmiennych. 

Tuż za tabelą nazw zmiennych rozpoczyna się tabela 
wartości zmiennych. Zmienne występują w tej samej 
kolejności, co w tabeli nazw zmiennych Każda zmien¬ 
na zajmuje w tabeli 8 bajtów. 

Bajt 1 - typ zmiennej: 

$00 - zmienna liczbowa 

$40 lub 41 - tablica 

$80 lub 81 - zmienna tekstowa. 
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Bajt 2 - numer kolejny zmiennej. Numeiy liczone są 
od O, maksymalny numer zmiennej - $7F (127). 

Bajty 3-8 - dla zmiennej liczbowej zawierają war¬ 
tość zmiennej, a dla pozostałych - 3 kolejne pary baj¬ 
tów zawierają parametry tekstu lub tablicy, a mianowi¬ 
cie kolejno: 

dla tablicy położenie w tabeli zmiennych indeksowa¬ 
nych, pierwszy i drugi wymiar tablicy: 
dla zmienne tekstowej, położenie w tablicy zmiennych in¬ 
deksowanych, aktualna i zadeklarowana długość tekstu 

Obejrzyjmy sobie tabelę wartości zmiennych. Najle¬ 
piej wyświetlić ją w kodzie szesnastkowym, co można 
zrobić najprościej w TURBO BASIC-u XL 

POKE 83,26: FOR A=DPEEK(134) TO DPEEK(136)- 
1:?HEX$(PEEK(A)); " "; :NEXT A: POKE 83,39 

Jeżeli program nie był uruchomiony, zmienne liczbo 
we będą miały wartość O C6 bajtów zerowych) Jeżeli 
był uruchomiony i został zatrzymany, możemy zoba¬ 
czyć aktualne wartości zmiennych Aby Je odczytać, 
trzeba znać sposób reprezentacji liczb w ATARI. Jest 
to podane w skrócie w dodatku A. 

6. Budowa wiersza programu. 

Zaraz za tabelą wartości zmiennych umieszczone są 

kolejne wiersze programu W każdym wierszu pierwsze 
dwa bajty oznaczają numer wiersza Jest to liczba bi¬ 
narna w zakresie od O do 32767 (kolejność bajtów: 
młodszy, starszy). Trzeci bajt oznacza długość wiersza 
w bajtach (maks. 255), liczoną łącznie z dwoma pier 
wszymi bajtami. Czwarty bajt oznacza liczbę bajtów do 
końca Instrukcji Jeżeli wiersz zawiera Jedną lustru 
keję, to trzeci i czwarty bajt są jednakowe. Jeżeli 
wiersz zawiera więcej instrukcji, to pierwszy bajt po 
każdym dwukropku oznacza liczbę bajtów od początku 
wiersza do końca bieżącej instrukcji. Na podstawie 3. 
i 4. bajtu można zorientować się, gdzie się zaczynają 
i kończą kolejne instrukcje, 

W następnych bajtach zakodowana Jest instrukcja. 
Symbole funkcji, operatorów, instrukcji i znaków po¬ 
mocniczych zakodowane są w postaci jednobajtowych 
tokenów (patrz dodatek B). 

Każda występująca w instrukcji nazwa zmiennej Jest 
reprezentowana przez jednobajtowy numer zmiennej, 
z dodatkowo ustawionym najstarszym bitem (np 
zmienna nr 4 ma kod $84). Każda stała liczbowa zaj 
muje 7 bajtów: pierwszy bajt $0E, następne 6 bajtów - 
liczba w postaci zmiennoprzecinkowej (patrz dodatek 
A). Stała tekstowa zaczyna się od bajtu $0F drugi bajt 
oznacza liczbę znaków tekstu, od trzeciego bajtu zaczy¬ 
na się sam tekst w kodach ATASCII. Ciągi tekstowe, 
występujące po instrukcjach REM i DATA mają postać 
kodów ATASCII. 

Na końcu wiersza występuje bajt o kodzie $16 lub 
(np. na końcu wiersza z Instrukcją DATA) $9B (RE 
TURN). Na końcu instrukcji, która nie jest ostatnią 
w wierszu występuje dwukropek o kodzie $14 


7. Zakończenie programu. 

Po zakończeniu ostatniej instrukcji programu nastę¬ 
puje bieżący wiersz programu. Jest to wiersz, który był 
ostatnio wpisywany. Jeżeli był to wiersz pisany w try¬ 
bie bezpośrednim bez numeru linii), to Jako numer li¬ 
nii występuje liczba 32768 (bajty: $00, $80). 

Bezpośrednio za bieżącym wierszem jest miejsce na 
tabelę wartości zmiennych Indeksowanych, tzn zmien¬ 
nych tekstowych i tablic Każdy element zmiennej te¬ 
kstowej zajmuje 1 bajt każdy element tablicy - 6 baj¬ 
tów. 

Za tą tabelą BASIC i mieszczą stos przeznaczony do 
zapamiętywania adresów powrotnych instrukcji GO- 
SUB i FOR/NEXT Każda czynna instrukcja GOSUB 
zajmuje na tym stosie 4 bajty, a FOR/NEXT - 16 baj 
tów W przypadku GOSUB pierwszym bajtem Jest O Ja¬ 
ko kod Instrukcji, następne 2 bajty mieszczą numer 
wiersza zawierającego tę instrukcję, a czwarty bajt - 
położenie tej Instrukcji w wierszu Dla pętli FOR/NEXT 
pierwsze 6 bajtów zawiera wartość końcową licznika 
( to co Jest po TO), następne 6 bajtów - krok lnkre- 
mentacji (STEP), następny bajt - numer zmiennej, ko¬ 
lejne dwa - numer wiersza programu, a ostatni - poło¬ 
żenie instrukcji FOR w wierszu 

8. Zapis programu. 

Program może być zapisany na taśmie lub dyskietce 
w dwóch jjostaclach; 

1. Postać źródłowa (listing) - zapis lnsti >«kcjaml 
LIST "C:", LIST D NAZWA". 


2. Postać półskompllowana 1 - zapis instrukcjami 
CSAVE. SAVE "C:". SAVE "D NAZWA" 
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Przy zapisie w postaci listingu zapisywane są na ta¬ 
śmie lub dysku w postaci kodów ATASC1I kolejne bajty 
listingu, tak jak to widzimy na ekranie po napisaniu 
LIST Przy zapisie w postaci połskompllowanej pro¬ 
gram zapisywany Jest w takiej postaci, w jakiej jest pa¬ 
miętany w Damięci komputera, od początku tabeli 
nazw zmiennych do końca bieżącego wiersza Dodatko¬ 
wo na samym początku zapisywane jest 14 bajtów za¬ 
wierających 7 adresów poszczególnych części progra¬ 
mu. Adresy te pochodzą z komórek 128-141, przy 
czym od każdego adresu odejmowana Jest wartość LO 
MEM (zawartość komórek 128-129). Tak więc pier¬ 
wsze dwa bajty są zerowe, następne dwa zawierają li¬ 
czbę $100 (kolejno $00, $01). 

Przy pomocy prostego triku możemy obejrzeć cały 
stokenlzowany program (w postaci znaków ATASC1I), 
Napiszmy: 

SAVE ”S:" 

a zobaczymy cały program w takiej postaci, jak jest za¬ 
pisywany na dysku lub kasecie. 

Panuje powszechne przekonanie, że zapis w postaci 
listingu jest dłuzszy Przy zapisie na taśmie jest to pra¬ 
wda ale przede wszystkim dlatego, że zapis odbywa 
się z długimi przerwami. Natomiast liczba zapisanych 
bajtów na ogół Jest mniej więcej taka sama, a często 
nawet mniejsza w przypadku listingu. Dlaczego tak 
Jest, wyjaśnię na przykładzie. Napiszmy wiersz progra¬ 
mu. 

10 SOUND 0,0,0,0 

Listing zawiera 17 znaków (łącznie ze spacjami 
1 znakiem RETURN). Ten sam wiersz w postaci pół 
skompilowanej ma długość 37 bajtów - ponad 2 razy 
więcej niż listing. Co prawda instrukcja SOUND zaj¬ 
muje tylko 1 bajt, ale za to każda liczba zajmuje 7 baj¬ 
tów. 

9. Efektywne pisanie programu. 

Jeżeli chcemy, zęby program zajmował mało miejsca 
w pamięci i na taśmie lub dysku (np. program jest bar¬ 
dzo długi, lub potrzebuje dużo pamięci na tablice, albo 
też chcemy jak najbardziej skrócie czas wczytywania), 
to przede wszystkim trzeba często występujące stałe li¬ 
czbowe zastąpić zmiennymi. Wiersz programu, podany 
Jako przykład w poprzednim rozdziale, po zastąpieniu 
stałej O zmienną X, której wcześniej przypisano war¬ 
tość 0, będzie miał postać: 

10 SOUND x,x,x,x 

1 zajmie 13 bajtów zamiast 37 

Inne sposoby skracania programu, np. pisanie wielu 
instrukcji w jednym wierszu, stosowanie krótkich 
nazw zmiennych, zmniejszanie liczby zmiennych - są 
także skuteczne, ale skracają program w znacznie 
mniejszym stopniu, niz sposób podany wyżej. 

Przy skracaniu programu trzeba mleć na uwadze, że 
może się nieco pogorszyć czytelność listingu, a także 
zmieni się czas wykonywania programu, co często by¬ 
wa ważne. 


Operacją, którą powinno się wykonać po napisaniu 
programu. Jest pozbycie się niepotrzebnych zmiennych. 
Chodzi o to. że w czasie pisania programu dokonuje 
się licznych zmian, poprawek, popełnia się błędy, 
a wiele z wprowadzanych przy okazji napisów ląduje 
w tabeli zmiennych nie występując w samym progra¬ 
mie. Co prawda, jak podano w [3], najnowsza wersja 
interpretera ATARI BASIC eliminuje zmienne, które 
powstały po wpisaniu błędnego wiersza, ale i tak dużo 
śmieci" pozostaje. Przeglądałem wiele programów róż¬ 
nych autorów (m.ln. programy nadawane w audycji 
RADIOKOMPUTER). Tabele zmiennych niektórych 
z tych programów zawierały ponad 40 niepotrzebnych 
zmiennych! Oznacza to kilkaset bajtów niepotrzebnie 
zajętych w tabelach nazw 1 wartości zmiennych, 
a w konsekwencji na taśmie lub dysku. Ciekawostką 
jest, że w wielu programach występuje nazwa ADY, 
która jest resztką napisu READY, 

Aby pozbyć się zmiennych nie występujących w pro¬ 
gramie należy zapisać program na taśmę lub dysk In¬ 
strukcją LIST, usunąć program z pamięci instrukcją 
NEW, odczytać instrukcją ENTER 1 dopiero zapisać 
przez SAVE lub CSAVE. Przy LIST tabela zmiennych 
nie jest zapisywana a przy ENTER jest tworzona na 
nowo tylko z tych zmiennych, które występują w pro¬ 
gramie. 

lO. Zabezpieczanie programów. 

Sposobów zabezpieczania programów przed listowa¬ 
niem lub zatrzymaniem Jest wiele i nie Jest to tematem 
niniejszego artykułu. Tutaj wspomnę tylko o paru 
sprawach związanych z budową programu. 

Ponieważ w programie używane są numery zmien¬ 
nych, a nie ich nazwy, więc postać tabeli nazw zmień 
nych nie jest ważna dla działania programu. Gdy pro¬ 
gram jest gotowy, do tabeli nazw zmiennych można 
wpisać zupełnie dowolne kody Program będzie działał, 
ale listingi mogą wyglądać dziwnie Spróbujmy np. wy¬ 
pełnić tabelę nazw zmiennych bajtami o kodzie znaku 
RETURN (155=$9B). Jest to wykorzystywane w zabez¬ 
pieczaniu przed listowaniem . 

Innymi sposobami są zmiany niektórych adresów za¬ 
wartych w komórkach 128-141 lub np wpisanie liczby 
0 do baj tu oznaczającego długość jednego z wierszy. 

Aby dokładnie przyjrzeć się programowi 1 ewentualnie 
dokonać w nim jakichś wymyślnych zmian, wygodnie jest 
posłużyć się dowolnym programem typu monitor. 

Mam nadzieję, ze Informacje podane w tym artykule 
przyczynią się do lepszego poznania komputera przez 
użytkowników 
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Dodatek A 

Liczby zmiennoprzecinkowe 

Każda liczba w ATARI zajmuje 6 bajtów. W pier¬ 
wszym bajcie mieści się znak liczby (najstarszy bit: 0 - 
liczba dodatnia) 1 wykładnik (pozostałe 7 bitów: wy¬ 
kładnik potęgi liczby 100 powiększony o 64) W pozo¬ 
stałych pięciu bajtach mieści się 10-cyfrowa mantysa 
w kodzie BCD Pierwszy bajt mantysy jest niezerowy 
i uważa się, ze po nim występuje kropka dziesiętna 
Wyjątkiem jest liczba 0, którą reprezentuje 6 bajtów 
zerowych 

Przykłady reprezentacji liczb w ATARI. 


1 

40 

01 

00 

00 

00 

00 

46 

40 

46 

00 

00 

00 

00 

32768 

42 

03 

27 

68 

00 

00 

0.0003=3*100^—2 

3E 

03 

00 

00 

00 

00 

—65535=6.5535*100^2 

C2 

06 

55 

35 

00 

00 

-1 

CO 

01 

00 

00 

00 

00 


Dodatek B 

Tokeny ATARI-BASIC 

Tokeny są Jednobajtowyml odpowiednikami instru 
kcjl. operatorów, funkcji, zmiennych, zgodnie z nastę¬ 
pującym podziałem (wszystkie liczby - w zapisie szes¬ 
nastkowym): 

1. Stałe, zmienne, operatory 1 funkcje: 

00—OD nieużywane 

0E oznaczenie stałe 3 liczbowej 

0F oznaczenie stałej tekstowej 

10—3C operatory 

3D—54 funkcje 

55—7F nieużywane 

80—FF nazwy zmiennych 

2. Nazwy instrukcji: 00-36 

Oto szczegółowe tabele tokenów: 

OPERATORY: 


f 

12 


$ 

13 


: 

14 

rozdzielenie instrukc]i w wierszu 

/ 

15 


CR 

16 

koniec wiersza 

GOTO 

17 

po ON 

GOSUB 18 

po ON 

TO 

19 


STEP 

1A 


THEN 

IB 


# 

1C 


<■= 

ID 

relacje między liczbami 

O 

1E 

M 

>■ 

1F 

relacje między liczbami 

< 

20 

•t 

> 

21 

ii 

■= 

22 

M 


23 

operacje arytmetyczne 

* 

24 

n 

+ 

25 

•• 

— 

26 

•• 

/ 

27 

ii 

NOT 

28 

operacje logiczne 

OR 

29 

•• 


AND 

2A 


" 

( 

2B 



) 

2C 



= 

2D 

operacja przyporządkowania 



(dla liczb) 

= 

2E 

operacja przyporządkowana 



(dla tekstów) 

<= 

2F 

relacje między tekstami 

O 

30 


•• 

>= 

31 


" 

< 

32 


ii 

> 

33 



= 

34 


•• 

+ 

35 

znak 

liczby 

— 

36 



( 

37 

nawias długości tekstu 

( 

38 

lewy nawias tablicy 

( 

39 

lewy 

nawias DIM tablicy 

( 

3A 

lewy 

nawias funkcji 

( 

3B 

lewy 

nawias DIM tekstu 

t 

3C 

oddzielenie wymiaru tablicy 

funkcje 


instrukcje 


STR$ 

3D 

REM 

00 

POINT 

1C 

CHR$ 

3E 

DATA 

01 

XIO 

ID 

USR 

3F 

INPUT 

02 

ON 

1E 

ASC 

40 

COLOR 

03 

POKE 

1F 

VAL 

41 

LIST 

04 

PRINT 

20 

LEN 

42 

ENTER 

05 

RAD 

21 

ADR 

43 

LET 

06 

READ 

22 

ATN 

44 

IF 

07 

RESTORE 

23 

COS 

45 

FOR 

08 

RETURN 

24 

PEEK 

46 

NEXT 

09 

RUN 

25 

SIN 

47 

GOTO 

0A 

STOP 

26 

RND 

48 

GO TO 

OB 

POP 

27 

FRE 

49 

GOSUB 

OC 


28 

EXP 

4A 

TRAP 

OD 

GET 

29 

LOG 

4B 

BYE 

OE 

PUT 

2A 

CLOG 

4C 

CONT 

0F 

GRAPHICS 

2B 

SQR 

4D 

COM 

10 

PLOT 

2C 

SGN 

4E 

CLOSE 

11 

POSITION 

2D 

ABS 

4F 

CLR 

12 

DOS 

2E 

INT 

50 

DEG 

13 

DRAWTO 

2F 

PADDLE 

51 

DIM 

14 

SETCOLOR 

30 

STICK 

52 

END 

15 

LOCATE 

31 

PTRIG 

53 

NEW 

16 

SOUND 

32 

STRIG 

54 

OPEN 

17 

LPRINT 

33 



LOAD 

18 

CSAVE 

34 



SAVE 

19 

CLOAD 

35 



STATUS 

1A 

domyślne 




NOTĘ 

IB 

LET 

36 



30 










Wykaz punktów sprzedających bieżące i archiwalne numery Tajemnic Atari. Drukiem pogrubionym zaznaczono 
miejsca, w których można równocześnie nabyć legalne oprogramowanie firmy L.K. AVALON. 


DRZAJA 

Mirowska 6, Częstochowa 

GM NEXl S 

NMP 11, Częstochowa 

SCALAK 

NMP 39/41 Częstochowa 

ELI Sklep Wielobranżowy 
Targowisko, Pawilon IV/5 
Gdańsk Wrzeszcz 

MICROMAN 
Plebiscytowa 31, Katowice 
Rynek 4 Rybnik 
DH HERMES, Rybnik 
SUPFRMARKFT, Sosnowiec 
Wojska Polskiego 14, 
Bielsko-Biała 
KRYMARYS 
Toruńska 63 Koło 
Księgarnia Techniczna 
Podwale 4, Kraków 
BIT - PLUS 

Bierzanowska 1, Kraków 

A może TWÓJ sklep? 


RETURN Studio Komputerowe 
Zamojska 25, Lublin 
PGMAREX 

Bernardyńska 20, Niecała 12 
Lublin 

KOBER, Grabowa 55a, Lubin 

Księgarnia Techniczna NOT 
Komuny Paiyskięj 5a, Łódź 

#TRACK# 

Reymonta 23, Opole 
Kołłątaja 11, Opole 

AR-WAL 

Wyszomirsklego 1, Opole 
Zakład Usług Komputerowych 
Ogrody 11 a, Osirowiec Św, 

P.H. METRO bms 
Ratajczaka 31, Poznań 
Księgarnia Techniczna "DOM 
KSIĄŻKI’ 

Paderewskiego 6, Poznań 

BAJT, Rejtana 33, Rzeszów 
DĄBI, Szopena, Rzeszów 


BARTEK, Kościuszki, Rzeszów 
DOMAR 

Zygmuntowska, Rzeszów 

STEL-DOM, 

Pomorska 7, Słupsk 
SONIX Sp. z o.o. 

Rapackiego 3, Szczecin 
DT Centrum, Szczecin 
Rydla (Helios 2), Szczecin 
COMPUTER SHOP 
Boh. Warszawy 18, Szczecinek 
KWANT Agencja Handlowa 
Żydowska 6, Tarnów 

COMPUTER CENTER WARS 
Marszałkowska 104/122 
Warszawa 
ATARI STUDIO 

Generała Abrahama 4 Warszawa 
O.KW. ELEKTRONIKA 
Mokotowska 51/53, Warszawa 
OSKAR, Igańska 26, Warszawa 
STUDIO ZET, DH SEZAM, 
Marszałkowska 126, Warszawa 


DH ŁADA 3p 
Oławska 27, Wrocław 
DOMAIN SOFT 
Kołłątąj:, 31, Wrocław 

KSIĘGARNIA Staromiejska 
Żeromskiego 16 Zielona Góra 

GAMĘ SOFT 

Francuska 52, Zielona Góra 

Zachęcamy właścicieli sklepów 
zainteresowanych sprzedażą na 
szego pisma lub oprogramowania, 
do kontaktu z naszą firmą Naj¬ 
szybszy kontakt telefoniczny pod 
numer Rzeszów 374-71 wew 
274 275 w godz 7 30 -15-00. Po 
siadamy szeroki asortyment lega! 
nych programów przeznaczonych 
dla różnych typów komputerów, 
oraz akcesoriów komputerowych. 
Oferujemy korzystne warunki 
współpracy Firmy bądź sklepy 
zainteresowane kolportażem ga 
zet otrzymują je na zasadach ko¬ 
misowych, a ponadto ich adresy 
będą co miesiąc drukowane 
w TA, co stanowi dobrą reklamę. 


Oferujemy możliwość wysyłkowego zakupu akcesoriów komputerowych. 
Zamówienia (na kartach pocztowych) przyjmujemy pod adresem: 

L. K. AVALON skr. 46 38-100 STRZYŻÓW 


Do podanych cen należy doliczyć koszt wysyłki (20.000 zł). 
W przypadku zamówienia kilku akcesoriów kwota ta doliczana jest do 
ich wartości tylko raz Jeżeli zdecydują się Państwo zakupić u nas 
równocześnie z akcesoriami oprogramowanie z oferty umieszczonej na 
ostatniej strome pisma, koszt wysyłki me jest doliczany do wartości 
zamówionego towaru. Zamówienia realizujemy drogą pocztową 
należność uiszczana jest przy odbiorze przesyłki. Wszystkie ceny podane 
są w zł i ważne do ukazania się następnego numeru Tajemnic Atan. 

Dyskietki 5.25’ 

zamawiana lość 10 20-40 50-100 


cena za sztukę 


No name DD 

7200 

6700 

6300 

VERBATIM COLORS DD 

12200 

11400 

10700 

BASF DD 

13000 

12000 

11300 

YERBATIM datalife + DD 

15000 

14000 

13000 

Pudełka na dyski 5.25’ 



Pojemność pudełka 


Cena 


5 


25000 


10 


30000 


50 


100000 


100 


130000 



Joysticki 

OUICKJOYII SV122 (auto fire, styki blaszane) 115000 

OUICKSHOTII QS 102n (auto fire, styki blaszane) 115000 
OUICKSHOTII plus OS 102p (auto fire mikrostyki) 160000 
JET FIGHTER SV126 (auto fire, mikrostyki) 230000 

Dyskietki czyszczące głowice vv stacjach dysków 

5.25’ 50000 


Kaseta czyszcząca do magnetofonów 25000 

Filtry monitorowe siatkowe 

mono/kolor, 14 cali, zachodni 190000 

mono/kolor, 14 cali, z uziemieniem, zachodni 230000 

Ponadto 

"złodziejka antenowa'' umożliwia podłączenie 
do telewizora anteny i komputera jednocześnie 35000 

Magie Clip uchwyt na liszki do monitora 35000 

Dziurkacz do dyskietek (zezwolenie na zapis) 50000 

Pokrywy na komputery Atan 65/130/800 XE 50000 

Taśma barwiąca do drukarek STAR LC10/20 70000 

Złącze MICROPRINT umożliwiające 

podłączenie do Atan dowolnej drukarki 190000 

Literatura 

Leksykon komputerowy dla początkujących (72 str.) 25000 

Słownik terminów i komunikatów komp (72 str ) 25000 

Instrukcja Alan 65 XE/130 XE (128 str.) 30000 

Atari Basic dla dzieci (102 str ) 30000 

Logo Atan 30000 

Poznajemy komputer Alan XL/XE (87 str ) 30000 

Mac 65 (86 str ) 30000 

Przewodnik użytkownika Alan XL/XE (128 str.) 40000 

Opisy gier na małe ATARI 35000 

Mapa pamięci Atan XL/XE, 

Dyskowe systemy operacyjne (188 str.) 40000 

Podstawy programowania w ATARI basie (170 str ) 45000 

Poradnik Programisty Atan (236 str ) 50000 

Atan basie 55000 

Atan logo (288 str.) 55000 










Uregulowanie należności następuje przy od¬ 
biorze przesyłki. Zamówienia na kartach po¬ 
cztowych. które powinny zawierać wyszcze¬ 
gólnienie rodzaju nośnika (kaseta lub dysk) 
oraz dokładny adres zamawiającego, 


prosimy kierować do: 

L.K. AVALON 
skr. poczt. 46 
38-100 Strzyżów 

. 


□ ROBBO - wspaniała gra zręcznościowo-logi 

czna Cena: 29.000 zł, 

□ MISJA, FRED 

Zmagania komandosa w tajnej MISJI; 

- Wędrówka z FREDEM przez pełną zaga 
dek i niebezpieczeństw krainę. 

Cena zestawu: 39 000 zł. 

□ LASERMANIA, 

ROBBO KONSTRUKTOR 

- Efektowna gra logiczna polegająca na poko 
naniu labnyntu komnat przy pomocy umiejęt 
nego sterowania promieniem lasera; 

Program użytkowy pozwalający na tworze 
me gotowych, samodzielnie działających gier 
Cena zestawu: 39 000 zł 

□ AUTOMAT PERKUSYJNY 

doskonały do tworzenia "muzyczek" kom 
puterowych. Sprzedawany wraz z instrukcją 
użytkownika. Cena programu: 42.000 zł 

□ SAPER gra strategiczna 

Cena gry 37 000 zł. 

□ A.D.2044 - wspaniała gra przygodowa 
z tekstem 

Cena giy na dysku 37 000 zł. 

Cena giy na kasecie: 39.000 zł 

□ CHAOS MUSIC COMPOSER 

pakiet zawiera program do komponowa 
ma, moduł odtwarzający (można go dołą 
czyć do własnych programów) oraz 
wyczerpującą instrukcję użytkownika. 

Cena pakietu 42 000 zł 

□ PANTHER 

wielofunkcyjny edytor tekstów pozwalają 
cy drukować po polsku na wszystkich 
popularnych drukarkach Sprzedawany tak 
że ze złączem MICROPRINT do drukarki 
Cena bez złącza: 42.000 zł. 

Cena pakietu ze złączem. 220.000 zł 

□ HANS KEOSS 

gra przygodowo zręcznościowa. Poszuki 
wama planów tajnej brom w bunkrze Wolf 
schanze Cena giy 37.000 zł 

□ TRIX 

wciągająca gra zręcznościowo logiczna 
Niezły pomysł i dobre wykonanie. Recenzja 
TA 3/92. Cena giy: 37 000 zł. 

□ CAPTAIN GATHER 

pierwsze plansze wydają się łatwe 

Cena gry 37 000 zł. 

Najlepszy na "małe" Atari zestaw do 
programowania w języku asemblera. 

□ QUICK ASSEMBLER 


□ BUG HUNTER 

CU XL FRIEND edytor tekstów, tabela ko¬ 
dów , kalkulator i monitor pamięci 

□ Zestaw procedur bibliotecznych 

□ Podręcznik do wymienionych programów 
Cena zestawu 62.000 zł. 

Wymienione niżej programy nie powstały w na 

szej firmie. Zachęcamy jednak do ich zakupu 

CU MIECZE VALDGIRA przygodowa gra fan 
tasy z doskonałą muzyką Cena 39.000 zł. 

□ BATTLE SHIPS kto 7 nas me grał w "okrę 
ty"? Tutaj zasady te same, lecz przeciwnik 

i oprawa znacznie lepsza. Cena 39.000 zł 

□ TacTic gra logiczna, recenzja TA 2/92 

Cena 39 000 zł 

□ KOLONY gra ekonomiczna, recenzja 

TA 2/92 Cena 39 000 zł 

CU GEOGRAFIA-prosty program edukacyjny 
obejmujący niektóre zagadnienia geografii go 
spodarczej Polski. Cena 35.000 zł 

CU ORTOGRAFIA któż nie ma z nią kłopotów ’ 
Ten program może pomóc i wiele nauczyć. 

Cena 39 000 zł 

□ VIDEOGRAPII proste narzędzie do two¬ 

rzenia czołówek filmów VlDEO wraz z in 
slrukcją użytkownika. Cena 43.000 zł 

□ Kt I,T najnowsza gra zręcznościowa. Po¬ 

mysł jakby znany (ZYBEX), ale wykonanie 
o wiele lepsze. Cena 42.000 zł 

CU MOZGPROCESOR - wznowienie znanej 

gry tekstowej. Cena 42 000 zł. 

CU MASTFRI1FAD doskonała gra logiczna 
z kilkunastominutową muzyką 

Cena 42.000 zł 

□ RODFRIC • dawno zapowiadane przygody 
rycerza w starym zamczysku Cena 39 000 zł 

□ BERTYX zmagania z wrogim komputerem 
na planecie BERTYX. Cena 39 000 zł 

D OPERATION BLOOD Krwawe starcie 
z niezliczoną ilością przeciwników (Jakby 
znajome - Operalion Wolf). 

Tylko na dyskietce! Cena 40 000 zł 

□ MONSTRl M popularny robal w nowej 

oprawie Cena 40 000 zł. 

O SKARBNIK gra logiczna. Cena 40,000 zł 

CD I. Q, MASTFR gra zręcznościowo- 

logiczno edukacyjna Cena 40 000 zt 

□ HI MANOID wspaniała gra zręcznościowa 

Cena 42.000 zł 

CD PONG gra zręcznościowa Cena 40 000 zł 

□ TANKS walka czołgów w labiryncie. 

Cena 40000 zł 

PR7A JEMNEJ ZABAWY' 

























